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GESSBS-4 $316* 

\ MH* 6809 CPU 

Sockets for up to 32 Kbytes EPROM 

Sockets for up to 16 Kbytes CMOS RAM 

One RS 232 serial poit 

40 TTL Bidirectional I/O lines 

4 x 16-blt timers 



GESMPU 14 $636* 

6 MHz 68010 CPU 

Optional 32081 arithmetic unit 

Sockets for up to 128 Kbytea EPROM 

One RS 232 aerial port 

4 x 8-blt timers 

Real-time clock/calendar and battery 



GESMPU-4A $316* 

5 MHz 68000 CPU 

Sockets for up to 128 Kbytes EPROM 

Sockets for up to 64 Kbytes CMOS RAM 

One RS 232 serial port 

Three 18-blt timers 



SOFTWARE 

OS-9* , PDOS* . CP/M 68K* , Editor-Assembler, Baalc-Pascal-C complleis, FORTH. 
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USA - CANADA 

100 West Hoover Ave. 
Mesa, AZ 85202 
Tel. (602) 962*5559 
Telex 386575 



INTERNATIONAL 

3,chemin des Aulx 
CH 1228 Geneva 
Tel. (022) 713400 
Telex 429989 



* 100 pteo* quinlKkn 

IM. I* « (*gisl*md 
tr»dmn«r* of Mgkotnto Inc. 
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EmX Micro-20 
prices 



BICRO 20 CS2.S RKzt 12565.00 

IICSO 21 (14.4? 1Hz) 12895.00 

I PORT IS2J2 80AR0 SET (SBC-IS) | 498.10 

PBOTOnPfUG BOM0 ISICHN) I 75.11 

BACK UNCI PLATt <8PP~«} | 44.11 

I/O BUS ADAPTER (SBC-BA) | 195.11 

QUMTITT DISCOUNTS ARC AVAILABLE OR THE 

ABOVE ITERS AS FOUOMSiM.LESSSti 

11-24, USS III; 2S-99.LESS 2lli 100 UP.LESS 301. 

NC6B6BIRCI2 f 295.00 

HC6888IRCI6 I 395.01 

SBC ACCESSORY PACKAGE (M20-AP) 11650.00 

for other configurations and options, contact GMX. 

ROTOWIA 60021 USEtS MANUAL I 16.00 

ROTOROU £6861 USEIS BANilAL | 16.00 



ro o*K* st Miuu $cwo cm c* on wowey oaock m use vou* visa o* master 

CKAAC£ haitaaliM 3 mil ft* pfttonaJ cnacM It t*a/ U S orooa add 15 AandV 
IflO I wa« * odd* 1200 OO FwtfQ* *dor» add HO NandUg I ordor Is undo. 
12O0 Ot- Fan*** ortttfi ovor STOO OO «« to U*pod «a (mart Air Fr^gM eOUtCf. 
and wi vol cftargt no NandUg Ai ordors tmnt to pr*9a« to U S fcods ftaas* no* 
mat tortfe* cnackf to* 6aon ttAmp, oboul I **H lor coftacBori to wt would ooMso 
«0rty«oro7).orcrvatt»drawnonab*nt accouni In 0* U S Our 0*nh I* fro Con tn oo 
tv ***s Notarial Bar* of CNmoo. ?3l S USata SVmI, CMeaoo. 1 60M3. KM 



BASIC- 09 and OS I a/a Vodonwti of M icrowira S»iam» Carl and UOTOWX A. inc. 
Ft EX and UntflH art Oaoomifks of Toctafcjl Sutams Coniufunu. inc. GiUjX. 
GHOST. GMX. CLASSY CHASSIS. *• troflomam of GiUiX. inc. 



Gmx 

1337 WEST 371h PLACE 
CHICAGO, ILLINOIS 80609 

(312)927-5510 ♦ TWX910-22M055 



GMX 
68020 SYSTEM 



S-50 BUS prices 

6809 SYSTEM 



For the user ntw appreciates tbe need for a bus 

structured systea at log STATIC BAR and powered 

by a ferro resonant constant voltage transforier# 

OKA transfers, blob speed MRU. ue bavo tbe 

URIFLIX-IR 68020 development systet. 

Tbe systea CPU provides protection to the systea 

and other users froa crashes caused by defective 

user programs. 

The systea' s Intelligent serial I/O processor 

boards significantly reduce systea overhead by 

handling routine I/O functions. 

The UnlFLEX Vfl Operating Systea Is a deaind-paged, 

virtual aeaory operating systea urltten In 68020 

Asseabler code for coopactness and efficiency. It 

allows up to 4 Megabytes of llrtual Metory per 

user. All systeas Include 1KB of static BAR, 

one 3-port Intelligent Serial I/O board, 

DMA Controllers, a S fl 80 track floppy drive. 

PRICK 

|020 BnJFLEX IH with 25R8 HO 110,960.20 

(020 UnlfLEX IR ultb BSHJ N8 112.460.20 

T0U CAR EXPAtfi THESE 020 SYSTEMS Mill! 

bOKV SlKtAHiK. •• ••! 2i400.00 

REMOVABLE PACK ORItf I 1,200.00 



INTELLIGENT I/0S 

|I4 3 Port SerlaMO Pin | 498.14 

|(3 4 Port Serlal-SO Pin I 618.13 

|12 Parallel-50 Pin | 538.12 

CABLE SETS FOR I/0S 

| 95 Cable Sets Specify Cord I 24.95 

| 51 Cent. I.P. Cable for |I2 I |44....| 34.SI 

| 53 Cent. Cable Set I 36.53 



Tbe atater 39 systeas lncludet|0S CPUwOATi f IS Classy 
Chassis! 256K Static RAMI a | 43 2 port serial 
card A cablesi |68 OlA Controller! all necessary 
cables, power regulators, and filler platess 

Systet | 39 0S-9 GNX II Dual 60 8S00...I 2.996.39 

W19HB | 4,698.39 

w?208 f 6,298.39 

The Software Included la this Systeai 
GMXBUG sonltort FtElt and 0S-9 GNX II. You can 
software select either f LEX or OS-9. Also Includes 
05-9 Editor, Asseabler, Oebugger. 6ASIC-09. RUMB, 
IMS, DO, and GKX-VU15K for FLEX, 



Systea J 39 UnlFLEX w25MB t 4,698.39 

wBSMB | 6.296.39 

Tbe UnlFlEX Operating Systea Is Included. 

6609 SYSTEMS USIOG TMF GIHIX III CPU 6 INTELLIGENT 
1/0 PROCESSOR BOARDS 

These Systea Include: G0X6809 CPU I III one |M 
3 port Intelligent serial 1/0 A Cablesi 119 
Classy Chassis; 256K Static RAN; |66 6HA 
controller] all necessary cables, power 
regulators, and filler plates. 

Systea | 79 059 GMX III Oual 80 0S08...I 4,498.79 

w2S06 $ 6,498.79 

v85MB | 7,998.79 

The | 79 Systea Software Includes! 059 GMXIN; 
0S9 Editor, Asseabler, Oebugger, BASIC 09. iUNB, 
RMS, 00, RAMdlsk, 0-FLEXl GMXBUG; FLEX* The 
GMX Support 80M and the hardware CRC board are 
exclusive features Included In this systea. 

Systea | 89 UnlFLEX II! w2508 | 6.796.39 

W85I6 f 8,298.39 

Tbe UnlfLEX GBX III Operating Systea Is Included. 




Portions of the lext for '66* Micro Journal were 
prepared using the following furnished Hard'Soll* 
ware: 

COMPUTERS - HARDWARE 

Southwesl Technical Products 

219 W Rhapsody 

San Anionic TX 78216 

S. 9 - S. 8 DMF Disk • CDS 1 - 821 2 W * Sprinl 3 Prinler 

GMIX Inc 

1337 Wesl37lh Place 

Chicago, IL 60609 

Super Mainframe - 0S9 - FLEX * Assorted Hardware 

EDITORS - WORD PROCESSORS 
Technical Syslems Consultants, Inc. 
1 1 1 Providence Road 
Chapel Hill. NC 275 14 
FLEX - Edilor > Texl Processor 

Stylo Software Inc 

POBo* 91 6 

Idaho Falls. ID 83402 

Stylograph * Mail Merge - Spell 
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Don Williams Sr Publisher 

Lany E. Williams Executive Edilor 

Tom E Williams . .Production Edilor 
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Send All Correspondence To: 

Computer Publishing Center 

68' Micro Journal 

5900 Cassandra Smith Rd. 

Hlxson, TN 37343 

Phone (615) 842-4600 or Telex 5 1 06006630 

Copyrighted 1985 by Computer Publishing Inc. 

68' Micro Journal is published 12 limes a year by Computer 
Publishing Inc. Second Class Postage Paid ISSN 01 94-5025 at 
Hixson, TN and additional entries. Postmaster: send form 3597 to 
68* Micro Journal, POB 849 Hixson, TN 37343, 

Subscription Rates 

1 Year $24.50 U.S.A., Canada & Mexico Add $9.50 a Year. Other 
Foreign Add $12 a Year for Surface, Airmail Add $48 a Year. 
Must be in U.S. currency!! 

Items or Articles For Publication 

Articles submitted for publication should include authors name, 
address, telephone number and date. Articles should be on 
either 5 or 8 Inch disk in STYLOGRAPH or TSC Editor fontiat 
with 3.5 Inch column width. All disks will be returned. Articles 
submitted on paper should be 4.5 Inches In width (Including 
Source Listings) for proper reductions. Pleaaa Use A Dark Rib- 
bon!! No Blue Inklff Single space on 6x1 1 bond or better grade 
paper. No hand written articles accepted. Oisks should be in 
FLEX2 6800 or FLEX9 6809 any version or OS-9 any version. 

The following TSC Text Processor commands ONLY should 
be used: .sp space, .pp paragraph, .fl fill and .nf no fill. Also 
please do not format within the text with multiple spaces. We 
will enter the rest at time of editing. 

All STYLOGRAPH commands are acceptable except ,pg page 
command. We print edited text files in continous text form. 

Letters To The Editor 

All letters to the editor should comply with the above require- 
ments and must be signed. Letters of "gripes" as well as 
"praise" are solicited. We reserve the right to reject any submis- 
sion for lack of "good taste" and we reserve the right to define 
'good tasted 

Advertising Rates 

Commercial advertisers please contact 68' Micro Journal adver- 
tising department for current rate sheet and requirements. 

Classified Advertising 

All classified ads must be non-commercial. Minimum of $9.50 for 
flrat 20 words and ,45 per word after 20. All classifieds must be 
paid In advance. No classified ads accepted over the phone. 
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The VME BUS and OS-9: 



Ultimate Software 
for the Ultimate Bus 



Modularity, Flexibility, High Performance. Future growth. These are probably the prime reasons 
you chose the VME bus. Why not use the same criteria when selecting your system software? That's 
why you should take a look at Microware's OS-9/68000 Operating System— it's the perfect match for the 
VME bus. 

When you're working with VME you must have access to every part of the system. Unlike other 
operating systems that literally scream KEEP OUT!. OS-9's open architecture invites you to create, adapt, 
customize and expand. Thanks to its unique modular design, OS-9 naturally fits virtually any system, 
from simple ROM-based controllers up to large multiuser systems. 

And tharsjust the beginning of the story. OS-9 gives you a complete UNIX-application compatible 
environment. It is multitasking, real time, and extremely fast. And if you're still not impressed, 
consider that a complete OS-9 executive and I/O driver package typically fits in less than 24K of 
RAM or ROM. 

Software tools abound for OS-9. including outstanding Microware C, Basic, Fortran, and 
Pascal compilers. In addition, cross C compilers and cross assemblers are available 
for VAX systems under Unix or VMS. You can also plug rn other advanced options, 
such as the GSS-DRIVERS™ Virtual Device Interface for industry- 
standard graphics support, or the OS-9 Network File Manager for 
high level, hardware-independent networking. 

Designed for the most demanding OEM requirements. 
OS*9's performance and reliability has been proven in an 
incredible variety of applications. There's nothing like a track 
record as proof: to date, over 200 OEMs have shipped more 
than 100.000 OS-9-based systems. 

Ask your VME system supplier about OS-9 Or you can 
install and evaluate OS-9 on your own custom system with 
a reasonably pf iced Microware PortPak rM Contact Micro 
ware today. We'll send you complete information about OS-9 
and a list of quality manufacturers who offer off-the-shelf 
VME/OS-9 packages. 



MICROWAR€ . 

- m Micro** re Systems Corporation 

1866 N W 114th Street • Des Momes, Iowa 50322 
Phone 515-224-1929 • Telex 910.520-2535 
Microware Japan. Ltd. 

41-19 Honcho 4-Chome, Funebeshi City • Chiba 273, 
Japan • Phone 0473 (28) 4493 • Tebx 781-299-3122 




Modular Hardware Deserves Modular Software 



Si Moum ? 
Be- i»§ 
$75143 Uppuu 



*129 



Of RudOH K«4I. GmbH 
Ftorp*vitr>u* ift 
04905 ScftrtMtwm 

' • fO « 03) 07 41 
466024 



Z«tweg 12 

CM-540& B*d** Owwii 



P*on> J066) §3-3377 
***i S2W75 



V i»fl*fl V L td 

»38 Joftn* 

flwilwdrtw* LUi 2JE 
j Kingdom 
i f05ft?M?34» 
WS115 



92 Byny* Road 
Pmiim BMeh 7i0» 

Prwn* 02*i*49i? 



uicfodatt Soft 

97 6a. turn 0* CotofflDM 

W400 CourtiHOM 



Pnor* i Twaoao 
W«i 61MOS 



OS»9 (s a trademark ol Microware and MdtaOle ftortPak is a trademark ol Microware GSS*Orivers ia a trademark oi Graphic 
SoHware Systems Inc. VAX and VMS are trade marka of DEC Unix la a trademark ol AT&T. 
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DATA-COMP proudly presents the first 
Under $5000 'SUPER MICRO". 



The MUSTANG-020- 



MUSTANG-02& 



The MUSTANG-020 68020 SBC 
provides a powerful, compact, 32 bit computer 
system featuring the "state of the arT Motorola 
68020 "super" micro-processor. It comes 
standard with 2 megabyte of high-speed SIP 
dynamic RAM, serial and parallel poits, floppy 
disk controller, a SASI hard disk interface for 
intelligent hard disk controllers and a battery 
backed-up time-of-day clock. Provisions are 
made for the super poweiful Motorola MC6888 1 
floating point math co-processor, for heavy math 
and number crunching applications. An optional 
network interface uses one serial (four (4) 
standard, expandable to 20) as a 125/bit per 
second network channel. Supports as many as 32 
nodes. 

The MUSTANG-020 is ideally suited to a 
wide variety of applications. It provides a cost 
effective alternative to the other MC68020 
systems now available. It is an excellent 
introductory tool to the world of hi-power, hi- 
spe#d new generation "super micros". In 
practical applications it has numerous 
applications, ranging from scientific to education. 
It is already being used by government agencies, 
labs, universities, business and practically every 
other critical applications center, worldwide, 
where true multi-user, multi-tasking needs exist. 
The MUSTANG-020 is UNIX C level V 
compatible. Where low cost and power is a must, 
the MUSTANG-020 is the answer, as many have 
discovered. Proving that price is not the standard 
for quality! 

As a software development station, a 
general purpose scientific or small to medium 
business computer, or a super efficient real-time 
coniroller in process control, the MUSTANG- 
020 is the cost effective choice. With the optional 
MC6888! floating point math coprocessor 

installed, it has the capability of systems costing 
many limes over it's total acquisition cost. 



DATA-COMP 



CA EKriifM 9f 
I 



Wiih the DATA-COMP "total package", 
consisting of a heavy duty metal cabinet, 
switching power supply with rf/line by-passing, 
5 inch DS/DD 80 track floppy. Xebec hard disk 
controller, 25 megabyte Winchester hard disk, 
four serial RS-232 ports and a UNIX C level V 
compatible multi-tasking, multi-user operating 
system, the price is under $5000, w/12.5 
megahertz system clock (limited time offer). 
Most all popular high level languages are 
available at very reasonable cost. The system is 
expandable to 20 serial ports, at a cost of less 
than $65 per port, in multiples of 8 port 
expansion options. 

The system SBC fully populated, quality 
tested, with 4 serial ports pre-wired and board 
mounted is available for less that $3000. Quantity 
discounts are available for OEM and special 
applications, in quantity. All that is required to 
bring to complete "system" standards is a 
cabinet, power supply, disks and operating 
system. All these are available as separate items 
from DATA-COMP. 




HIhm.Tr 5?MJ 

T#fe* 510 fiQO-GblO 



A special version of the Motorola 020- 
BUG is installed on each board, 020-BUG is a 
ROM based bebugger package with facilities for 
downloading and executing user programs from 
a host system. It includes commands for display 
and modification of memory, breakpoint 
capabilities, a powerful assembler/disassemble 
and numerous system diagnostics. Various 020- 
BUG system routines, such as I/O handlers are 
available for user programs. 

Normal system speed is 3-4.5 MIPS, with 
burst up to 10 MIPS, at 16.6 megahertz. 
Intelligent I/O available for some operating 
systems. 

Hands-on "actual experience sessions", 
before you buy, are available from DATA- 
COMP. Call or write for additional information 
or pricing. 
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M/5TA9HH0 toodaasrsi ■■ 

T|ft* Seconds 




Type Srete* 32 bit 
IpC. Loop 


■agister 
Lo«g Loop 


ISft AT 7300 Unix Sye 3 9.7 
AT4T 7300 WIX PC 68010 7.2 
OSC TAX 11/780 0*11 lerfctey 4.2 3,6 
&8C VAX 11/750 " 3.1 
MOW 081 68K 8 I0>* 18-0 
88000 " " 10 (Out 6.3 
WSTABB-020 68020 ftC&SSSl OS9 16 Kht 2.2 
KOSTAMfr-020 68020 MC6888 1 WXFLftl - 1.8 


8)0 talis Cora 

4.3 
3.2 

3.2 

9.0 

4.0 

0.88 

I.ZZ 


■■ Loop: Katn<) 




nflic«r Iom 1; 

for <t«0; i < 999999; +*1>; 

J 




IsCJauCed KIPS * MDSTAMC-020 - 
Kotorole tpmcmi Bur at up to 7 - 


2.3 HIPS 
% HEPS - 16 Mb* 



MUSTArHM&O" Software 
OS* 



OS-9 $330.00 

BasicM 300.00 

C Compiler 400.00 

Foruaa 77 400.00 

Microwere Paaod 400.00 

Omegeaeft PaacsJ 900.00 

Styko-Gfiph 495.00 

Stylo-Spell 193.00 

Stylo Merge 175.00 
Sty to-Orapbr£f*1) .Merge 693.00 

PAT«/C**ra 229 00 

JUST w/C eonse* 79.95 

PAT/ A/ST Coabo 249.50 

Sculptor* (sec bc»o%) 995.00 

COM 125 00 

UntFl.EX 



UoJFLCX 
Screen Editor 
Sort-Merge 

BASIOrYeCompUcr 
C Compiler 
O0BOL 

CM0D2M wfuwcA 
TMODGM w/aours 
X.TAlX(aseAd) 
Qosa Assembler 
Fortran 77 
Sculptor* <kc below) 



$450.00 
150.00 
300.00 
300.00 
350.00 
750.00 
100.00 
100.00 
99.95 
50.00 
450.00 
995.00 



8 Port cspeostoo RS-23J 498.00 
(total of 20 •era) port* sopponed) 

Expansion for Meuvols I/O Channel 
Modules SI 95 .00 

Sculptor «: We are USA dlstribuiors for 
Sculptor ♦. Call or write Tor site or multiple 
aystem license A. discount*, OEM/Dealer. 

Special Tor complete MUSTAN04)20~ 
■ysura buyers - Sculptor* S695J0Q. Save 
$300,001 

Software DfsceaaU 

Al MUSTAN&O20" 



I 10-70* 

(SepasuVu) os fcem Cat) or wrba for 
a apply sAar the isk 



MU8TANG-Q20- 

Pt&TURSt 

1Z5 Mhi (optioui) 1 6.6 Mb* available) MC68020 full 32-bit wide path processor 
32»bi1 wide data and address buses, noo-ouKipkxod 
on chip inunction cache 

object code compatible with all 68XXX family processors 
enhanced instruction set - math co-processor interface 
6888 1 main hi- 1 peed floating pouji co- processor (optional) 
direct extension of full 68020 mttruEtwo act 
full •upport IHJ£ P754, drsft 10.0 
CVtacrndartal and other scWniifr malh functions 
2 Megabyte of SP RAM (512 a 32 bit arpnitsikm) 
up to 256K bytei of EPROM (64 1 32 bits) 
4 Atynchronoui seria) I/O porta standard 
optional to 20 serial ports 
standard RS-232 bierfac* 
optnrul network tnaerfac* 
buffered B bit parallel port (1/2 MO68230) 
Centronics type pmout 

expansion coraanttor for additional I/O devices 
16 bit data path 
256 byie address spats 
2 interrupt inputs 
clock and control signals 
Motorola I/O Channel Modules 
time of day c)ocfcfc*kndar Wbattmy backup 
controller for 2, 5 1/4" floppy disk drivea 
single or t 
lectat 
SASt interface 



single or { 
4c (41 -96 



IT!) 




programmable pnriodk cnavrvpt generator 
euerrupt rate from rnicn>c*cor*4i 10 — 
highly acovaie time base (5 PTM) 
5 bat sense iwiich T nsadabk b] ' 
oardVert sbgavslep capability 
' 13 



sense twitch, readable by the CPU 
!i singavsiep capability 
directly to a standard 3 1/4" disk: drive 



Size 813716x3 7* 



The** h* ig**d 68020 ivitemi are presently working al 

NASA, Atomic Energy Commit! km. other Government 
Agenciei at well n universities, Busineti, Labi, and 
critical appticstioni caiim, Worldwide, where speed, math 
crunching and multi-user, mu hi -tasking UNIX C level V compatibility 
and low cost is a mutt* 



I For a limited lime we will offer a - 
• $400 trade-in on your old 68XXX : 
■ SBC Must be working properly I 
! and complete with all software, I 
I cables and documentation. Call ; 
. for mora Information. ■ 



MUSTANG-020 Syslem component prices * Elledive July 1,1986 
Prices w»bf»ct to change . cal lor la I e si quotes, 



MUSTANG-020 (12.50 Mhz) $2750,00 




oo 



Cabinet 


$299,95 


5--80 track floppy DS/DO 


$260.95 


Floppy cable 


$39.95 


OS-9 68K 


$350.00 


Winchester eabte 


$39.95 


Winchester Drive 25 Mbyte 


$695.00 


Xebec H/D controller 


$395.00 


Shippino USA UPS 


$20.00 


Total: 


$5059.80 



DISCOUNT LIMITED TIME: with Complete System $1061.00 



Complete System 



$3998.80 



OPTIONS ADD; 

UniFLEX 190.00 

MC6888 1 lip malh prooi8ior $275.00 
1667 Mhi MC68020 $375 00 

16 67 Mrtz MC6888 1 $375 00 



WE WILL NOT BE UNDERSOLD! 

This price subject to Increase 
Addition*) MUSTANG systems soon 



Noie: Current OS 9 {Ver. 1.2) does nol address trie MC68881 - Future 

revisions w»t. I! 1he 68881 is antrcapated in Ihe lulure. it must be ordered 
wilh the system, when ortahstly ordered. UniFLEX does support both the 
enhanced code ot the 68020 and 68881 now. 



DATA-COMP 



tO YEARS OF DEDICATED OUALfTYl 
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PAT - JUST 



"\ 



PAT 

With 'C Source 
$229.00 



* *" > W—_ J t JQQ fl 

A Division of 

c D 
i 



s.e. 

Media- 

3900Cu«mfr»Sn*)iR4L 
Ho»oo.Ta 37343 
Telephone 615 8424909 
Tele* 510 6(04630 



1 ( ftKO(K»HO9-ftN0(m-6«OOO-6«0»I-680I(l ) j 



PAT FROM S. E. MEDIA -- A FULL FEATURED SCREEN ORIENTED TEXT EDITOR 

with all the best of PIE. For those who swore by and loved PIE, this is for YOU! All PIE 
features & much more! Too many features to list. And if you don't like ours, change or add 
your own. C source included. Easily configured to your CRT terminal, with special configuration 
section. No sweat! 

68008 - 68000 - 68010 - 68020 OS-9 68K $229.00 




Special $249.00 

JUST 

JUST from S. E. MEDIA - - Text formatter written by Ron Anderson; for dot matrix 
printers, provides many unique features. Output formatted to the display. User con- 
figurable for adapting to other printers. Comes set-up for Epson MX80 with Graflex. Up 
to 10 imbedded printer control commands. Compensates for double width printing. 
Includes normal line width, page numbering, margin, indent, paragraph, space, vertical 
skip lines, page length, centering, fill, justification, etc. Use with PAT or any other text 
editor. The ONLY stand alone text processor for the 68XXX OS-9 68K, that we have 
seen. And at a very LOW PRICE! Order from: S.E. MEDIA - see catalog this issue. 

68008 - 68000 - 6801 - 68020 OS-9 68K 
^ With 'C source $79.95 J 
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SOFTWARE USERS 

NOTES 



BY: Ronald W. Anderson 
3540 Sturbridge Court 
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am going to take some space this month to 
comment on the FFT programs in the April issue of 
'68'. First of all, let me say that I was very happy 
to see the programs and the good discussion of 
them, I noted the time for the Uhrich algorithm, 
which was immediately interesting because we had 
implemented the Cooley Tukey algorithm, and it 
would appear that the Uhrich will run three times as 
fast! I entered the piogram in Pascal on the 
MUSTANG-020™ system and compiled it with 
OmegaSoft Pascal. I found the execution time to be 
about 4.5 seconds for a 1024 point FFT. The 
article by James Gross reports that it ran 132 
seconds on a 2 MHz 6809 system in Lucidata 
Pascal I decided to see what I could do to speed 
up the program some. 

The first try was to generate a table of sines 
for the first quadrant (256 values for to 90 
degrees). I was lazy so I wrote a quick BASIC 
program to generate the table to a file, and then 
edited it into the program file with PAT. Rather 
than generate a whole half cycle table for Sine and 
another for Cosine, I wrote a "fold" procedure for 
sine and cosine to allow me to use a quaiter cycle 
table. I recompiled and found that the program 
now executed in just about 2.5 seconds. Looking a 
value up in a table is always faster than a calculation 
involving floating point numbers, even more so one 
that involves a scientific function. 

Now I decided to see what else could be 
done. The original program is nicely illustrative of 
the algorithm, and my comments here are NOT to 
be taken as being critical of the article, the purpose 
of which was to show the algorithms clearly and 
not to optimize the program for speed. First of all, 
to speed up a program it is necessary to remove all 
calculations fiom within a loop that can be done 
outside of the loop. For example the W := 2*pi/N; 
calculation contains no variables that change with 
any loop count, so that calculation can be done just 
once for a run of the program. Of course with the 
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table, that calculation is not required. Several other 
values were calculated repeatedly inside of the I 
loop, and needed to be calculated only once for 
each time J was inciemented, so these were pulled 
out of the loop. Several places in the I loop, 
calculations were done involving a divide by N. At 
least in the 6809 software, a divide costs a lot more 
time than a multiply. This is primarily so because 
the 6809 has the MUL instruction (an 8 bit by 8 bit 
multiply with a 16 bit result, in 12 clock cycles). It 
has no equivalent divide instruction. The 8 by 8 
multiply doesn't sound very useful, but it can be 
used as a building block to make much larger 
multiple precision multiply routines. Rather than 
divide by N it is much faster to calculate 1/N once 
somewheie in the program and then to multiply by 
that value. Several of the calculations contained 
expressions involving the same variables, and these 
expressions could be evaluated once and assigned 
to another variable to be used within the loop. 

At about that time I decided to code the 
algorithm in PU9 and run it on the 2MHz 6809 
system. It ran about 20 seconds. I did some 
further work with the 6809 version in PL/9, much 
of which was transferable back to the Pascal 
version. 

One place that uses up a lot of time is the 
testing of the loop condition. FOR I := 0TO N/4, 
for example causes the value N/4 to be calculated 
each time through the loop. Since for a given 
program N is constant, the value N4 = N/4 was 
made a constant, and the substitution made. 
Similarly, most of the DIV operations and the 
REAL divides (/) were eliminated. 

I noted that each time through the J loop, the 
program operates on the values in the X[1,N] 
arrays and puts the results in the X[2,N] arrays. 
Later the contents of the 2 array is put back into the 
1 array for the next time through the J loop. I 
decided that rather than move the result back to the 
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first an-ay after each pass, I would simply decide 
whether the pass (or the count in J) were odd or 
even, and "shuttle" the values back and forth 
between the two arrays. For an even value for 
NSTAGE, this does not complicate the output 
procedure. For an odd NSTAGE, it would leave 
the result in the 2 array, requiring some further 
logic to unscramble it. Since I was optimizing for 
N=10, 1 left things as they were. Next I saw in the 
SIN FOLD and COSFOLD procedures in the 
logic that determines whether the angle is in the 
first or second quadrant, that I had divided INDEX 
by N4 t a better operation than my first attempt 
which was 4+INDEX DIV N;. I decided that the 
PL79 SHIFr operation could be used to advantage. 
SHIFT(INDEX -8) would do nicely for the 1024 
point FFT, and a generalization would be SHIFr 
(INDEX,-(NSTAGE-2)). I defined another 
constant NSM2 with that value. Later I decided 
that INDEX AND 256 would work as well and be 
considerably faster. The final results are the 
SIN FOLD and COSFOLD procedures as they 
appear in the listing. 

At this point, the result ran on the 6809 
system in just about 14.4 seconds, and on the 
MUSTANG-020™ in Pascal in 1.8 seconds. Note 
that our MUSTANG-020™ does NOT have the 
arithmetic Coprocessor. About the only 
improvement that I couldn't transfer back to Pascal 
was the SHIFr operation. C has this operation but 
Pascal does not. The listings for both the Pascal 
and the PL79 versions are included here. 

A few rules should be evident. 1. Don't 
calculate anything more than once for each time the 
result of the calculation will change (an index is 
incremented etc.). 2. If a value doesn't change for 
the whole operation of the program, define it as a 
constant. 3. Use tables for values rather than 
calculating them. It is always faster to calculate an 
array index than to evaluate a REAL expression. 4. 
A program optimized for execution speed is likely 
to be more obscure than one optimized for clarity 
and flexibility. 

A further note is that I found a bug in the 
Uhiich algorithm as presented in April '68'. I was 
able to find and fix it, but it added about 40% to the 
calculations performed. Fi nal r esult was 2.6 
seconds for the 1024 point FFT. At that point, the 
6809 veision stretched its execution time back out 
to 23 seconds. I decided to try a 16 bit integer 
veision with an integer sine table and a special 
multiply routine that would treat the sine value 
between and 32767 as a fraction between and 
1.0. After several tries, the final result was a 
program that does the 1024 point FFT in 3.7 
seconds on a 2 MHz 6809 system. The listing of 
this program is included here. 



Woes of a Multilingual Programmer 

Oince the arrival of the MUSTANG-020™, I've 

spent a lot of time writing C programs and some 
considerable time again in Pascal, which I have not 
used for some time. Now I am all confused. 1 
write Pascal If-Then statements without the THEN. 
I include the THEN in a C program. I use := in a 
PL79 program and = in a Pascal program. I forget 
the == in a C program test if(a==b). Tonight I tried 
to use the C shift (») function in a Pascal 
program. Maybe someday I will reach the point of 
being able to switch comfortably, but I certainly am 
not there yet. Oh, yes, one more irritation, when I 
write a BASIC program now, I try to put a 
semicolon at the end of every line! Of course I like 
them all. If I didn't I wouldn't have these troubles. 
Part of the fun of computing is having something to 
complain about! How about a few examples? 

if (a==b) statement; 
else differentstatement; 

if a=:b then statement 
else differentstatement; 

The first example is the C version of an IF 
THEN ELSE. Note that the word THEN is not 
used. The semicolon after the IF clause is 
REQUIRED. The second example is the Pascal or 
PL/9 version. In Pascal, the THEN clause must 
NOT have a semicolon after it. PL/9 doesn't seem 
to care if it is there or not! 

while (a<b) 
{ statement; 

statement; 
} 

While a < b do 
begin 

statement; 
statement 
end; 

Again the first example is the C version. The 
condition goes inside parentheses and the word DO 
is omitted. Both statements must have a semicolon. 
The second example is the Pascal version. 
Parentheses are not used around the condition. DO 
is used. The last statement before the END does 
not need a semicolon, and in fact the Pascal 
standard indicates that one should not be used 
there, but most Pascal compilers don't care. 1 find 
that if I leave it out, I later add a statement after the 
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one without the semicolon and forget to add the 
semicolon, so I get a compile error. PL/9 uses the 
same format as Pascal but without the DO. 



do 

{ statement; 
statement; 
} while (a<b); 
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repeat 

statement; 

statement 
until a>=b; 

Again the C version is first. Note that the test 
at the end of the loop is a WHILE. That is the loop 
repeats until the condition becomes FALSE. In the 
Pascal version the condition is an UNTIL. That is, 
the loop repeats until the condition becomes TRUE. 
In translating a program from one to the other, you 
must be sure to "reverse" the condition. Less Than 
becomes not(Less Than) which is the same thing as 
Greater Than or Equal. The PL/9 version of this 
loop is the same as the Pascal version. 

Case statements are different in the three 
languages too. The differences are small, but just 
enough to be confusing and to send me to the 
manual every time I switch. My problem is not that 
the constructs of these languages are different, but 
that they are too similar. The differences are so 
small that it is easy to forget them. The Pascal 
standard is for the program to be written in upper 
case only. Some Pascal compilers allow lower case 
for user defined variables, but insist on upper case 
for keywords. Some now allow all lower case as a 
user choice. C requires lower case for keywords, 
and the C "convention" is to use lower case for user 
variables and upper case for CONSTANTS. PL/9 
started out as an upper case only language, but now 
allows upper and lower, and does not distinguish 
between them. 

Reader Feedback 

uome indirect feedback arrived via the letter 

in April '68' from Calvin Dodge. I won't speak for 
the other items that he mentioned, but I will speak 
for the parts of my column on which his letter 
contained comments. First of all, Calvin, you are 
absolutely correct with your first comment about 
my simplest and fastest CLEAR memory loop in 
the March column. The code was: 

clra 
clrb 
loop std ,--x 
bne loop 



You pointed out correctly that the loop will 
teiminate immediately because the data in ACCD 
when the STD instruction is executed, is what sets 
the zero flag, not the post decrement of X. All I 
can say is that I vow never again to publish ANY 
assembler code no matter how small or trivial, 
without testing the idea first! Many programmers, 
myself included, tend to see what they want the 
code to do rather than what it actually does. I plead 
guilty! I think (breaking my vow of the last 
paragraph) the following would work correctly, 
though not quite as efficiently: 

clra 
clrb 
loop std 0.x 
leax -2,x 
bne loop 

the leax instruction does set the zero flag when the 
value in the X register reaches zero. 

A little later in your letter you refer to my bit 
on code efficiency in PL/9. I'm afraid you missed 
the point PL/9 has a logical .AND and a bitwise 
AND. The difference is that the logical .AND has 
the period in front of it My point was that the 
seemingly less straightforward coding: 

IFA=BTHENIFC=D... 

produced considerably less compiler output (object 
code) than the more straightforward (IF A=B .AND 
C=D) logical .AND version did. The reason for 
that must lie in how the code generation is carried 
out, and it is surely a peculiarity of PL/9. 

Your suggestion on the ADTEST code is 
certainly a valid improvement, and its use extends 
to other values for multiplication by a constant just 
as well. We find at work that passing a program 
back and forth between a couple of programmers 
results in major improvements. Each sees a way to 
improve on the code of the other, A substantial part 
of the improvement in the FFT program execution 
time discussed above, is the result of two of us 
passing the ideas back and forth several times. 
When I thought I had gone about as far as I could 
go, another programmer, Doug Case made a few 
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more suggestions, and by the time we were both 
through making further changes, we had taken 
another 10% of the execution time out of the 
algorithm. Since the program spends just about 
half of its time multiplying two numbeis, the point 
at which removal of execution cycles will make the 
most improvement is in the multiply routine. For 
an hour or so, each suggestion by one of us 
brought a further suggestion from the other. 
Eventually we reached a point where further 
changes would not significantly improve the 
timing. Anyway, Calvin, thanks for keeping me 
honest! 

By the way, by now you all noticed that the 
June issue was missing my column. A number of 
difficulties had come up that prevented me from 
finishing a column by the deadline. That was my 
first miss in very nearly six years of writing for this 
Journal. I am in the process now, of trying to get 
ahead a little bit, so that if I again get too involved 
in other things, it won't make me miss another 
deadline. 

PC Boards 

JTor the last couple of days at work, I have 

been working on a PC board layout using our new 
Tandy 3000 and the Wintek SmArtwork package. 
We traded one of our Tandy 1200-HD computers in 
on the newer 3000 with the 80286 processor. 
SmArtwork is much more pleasurable to use on the 
3000, which seems to run about 5 times faster, 
though after a couple of days, one tends to see red, 
green, and yellow spots in his dreams at night. At 
my present rate, it will take about thrte more days 
to finish the card and it will cost us about one third 
as much as previous such cards that were done 
outside by a PC layout company. Actually, the 
savings in cost on this card and a similar one, will 
be enough to pay for the new computer. 

One of the nicest things about doing a PC 
board on the computer, is the ease with which 
changes may be made as the layout progresses. If 
you use a little caie in the placement of the I.C. 
packages, the design progresses rapidly, and if you 
box yourself in and can't get to a connection, it is 
easy to delete wires and make changes to get out of 
a corner. We have been using the Wintek software 
for over a year now, and they have continued to 
upgrade it and add new features. The latest version 
has the possibility of four different line widths, 
filling in solid areas, and four different kinds of 
pads, two round and two square. Several of the 
early inconveniences in editing a layout have been 
removed. 



Though I realize that this discussion is out of 
the realm of this column's title, I highly recommend 
this software to anyone who wants to design 
printed circuit boards. It is not the ultimate in 
automatic PC board layout, but the user can insert 
or move a portion of the layout (a BLOCK). He 
can let wires autoroute, though the feature tends to 
spread conductors out too much, since the router 
can't know how many more conductors must fit a 
particular space. We tend to "guide" the placement 
of conductors by incrementally routing them more 
or less where we want them. At the end when we 
are faced with a few impossible connections, we 
turn the auto router loose and it can frequently find 
a route, upon which we can improve by means of 
feed-throughs and running the conductor on both 
sides of the board. 
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MEN SIN FOll :- UHUtt'lNftl] 
ELSE Sll FOLI f ItflEIIROEZI; 



ENO; 



FUAtllON COS t<Mil«OEI:[N7E6£R):ttAl: 1 QUADRWl SWUM LQSIC ) 
ttfilN 

If IMKt «M0 254 l>l 

1HEN COS FDLB x- -UW.E URKl -R41 
ELSE COS. FOll :- >MU IM-1MKI1; 
E»i 

PWCID4JK ItfPlll FURCIIDR; {S4MIO0H 1.1 f(M MPU1UB£ I 
m U IMIEBEfi; 



*MN 

FUR I s- I 10 RRl 00 
fiEGIR 

Kl.U.tl i- -I.I » 1 • ruo M; 

in, ii. in :» M? 

ER0$ 
END; 

HrlllEDURE FASTF0UR1ER} 

VA* A.I.C.O.E.f.J: UlEGEfi; 
I.R.H?J,IIQf2.P?07l lMU6ffr; 
H: CDHPtElj 
SIMM. COS* : *EAt; 
J0D9 : lOOUAMi 

IE6IN 

FOR J :« 1 1» RSJfttt 10 
1ECIR 

IF OMIJ) 1NEN JQJft x- IWk ELSE JUOO :■ FALSE; 

RJP2 x' M IIV P?t Jl; 

r2K x- P2IJI IIV 2; 

FOR I :• I IOR2I2H M 
ttfrltf 

IM?J :■ MM*?; 

COSm :• COS fOLlCUKJi; 

SIM* f SIN F&DUR2J); 

t :- IN2J; 

F :• ••/; 

fOR fi x- t 10 W*M DO 

IE6JN 

A !■ R*Bj 
I X' f *f ; 
C X' G«NQP2; 
E :• i«M7| 
IF JODD IHER 
IfJlft 

R.RE X- ICI ,CKRt»Cb6H • iC.n.lftiSlM: 
N.IH X- IU,CJ.SR»C05M M IS.Cl.REiSINU; 
112.il, RE x' 1(1,11. Rl » H.tii < ••-- 1 
112,11. Iff i' 111,11. IN ► N.IN; 
Jl.'.EME jt lll,l) t RE - R.RE; 
112, El. IN i- 1*1,11. 1H - NJN; 
(MP 
CISE 

N.« ♦■ iCCI.REiCBbM • II7.CI. i»«simn 

N.IN :• U?,CI.INiCOSM - li:,C].RElSlN«; 
III.AI.RE :• 1(7,11. RE » R.RE; 
lll.Al.IN x- XI?, II. IN * R.IR; 
Hl.EiJil x' U7.frl.Rf - R.RE; 
it 1,1 l.ld t. ii*ii. in r.IR; 
W; 
ENI; 
LRft; 
ERD; 

IJRCIJOR HAGll,»:REAl)tMAL; 
K6IR 

MAS :■ SORllSORll) * SARIN I ; 
ENB; 
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PROCEDURE OUffUI; 
VAF 

I. it !N1E8ER| 

VALINE, VALUE I: REM; 

K8IR 

VALUE J :■ WGIItl.lJ.HE.iU.n.lR); 
FOR I x- I 10 (N «|V 71 -] DO 
BEBIH 

VALUE :- NA6EXh,IJ.RE,!n,ll.rN); 

NRllELR<ll3,VAlUC/VALU€lxl?i6, 
m,MJE:l2:6,m,M.lRrl7:6U 
EM; 

MRIIELN; 
ENO; 



8EGIR 

INItARRAfx 

IRPW.FUROIOR; 

MtlELR; 

RAKE 1 S1AA1 MOtftA* >x 

mm*; 

IRSlFOUtliR] 
OUIPUlx 
C«0, 



ADKRFO* rtNlR6 ACfURl fFI 1 



/i FF1 USIR6 UHR1CN AUQRtlHA if 

0R16JN - I* 
STACK - UHif 

CONS I AMI 
R « 1024, 
R2 -512. 
HI "256, 
NSTRCE « II, 
NSH1 ■ I; 

A! IISM; 1N1EGER HRElll?4>, 
lllflllttil, 

i:re<H2«i, 

i:iRUI24)| 



MICfiEA 
I, ?ll 
I?l6, 

?:n, 

5211, 

♦I'll, 

5:15. 

*l?5 f 

7179, 

1156. 
9126, 

irw;, 

III3I, 

ihw, 

1J9R9, 
IJB27, 
142)?, 
15623. 
16499, 
IH6I, 



1MLE 

, (12, 613. 

Hie, 1617, 

2111. 2611, 

3*11, 3611, 

441? r 46f§, 

5413. 5611, 

6392, 6519, 

7375. H7I, 

1351, 1515, 

9519, 9511, 

11271, 11469, 

11227, 11416, 

12164, 12353, 

131*4, 13271, 

MM?, 14191, 

14911, 15191, 

15799, 15925, 

166??, 16945, 

17531, 17699, 



644, 

18M. 

311. 

3111, 

4Rt) r 

5W. 

6714, 

7746, 

1739, 

9711, 

11659, 

11644. 

12539, 

13442, 

14377, 

1526*, 

16151, 

17117, 

17868, 



JUtt, 

2119, 
31)1, 
4111, 

im. 

5997 1 
6982. 
7961, 
1932. 
9195, 
I 1649 T 
1179?, 
12724, 
13645, 
14552. 
15446, 
14375, 
17189, 
18134, 
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lew, Il37l f I853? T 
19831, 19194, 19357, 
19848, ?NM< 21159, 
4*31. 19)8) , ?B942, 
21412, 21554, :17k, 
22153, 22311, 22446, 
77883, 23127,' 23169, 
23592, 2)731, 33869, 
74276, 24413, ?4546, 
24942, 75177, 7521k, 
25582, 25717, 25831, 
26196, 26316, 26437, 
76789, 26913, 27119, 
27355, 77466, 27575, 
27896, 28811, 28115, 
i'em, 28511, 28688, 
21897, 28992, 29115, 
79358, 29446, 29534, 
29798, 29873, 29955, 
38195, 31272, 38349, 
31571, 31643, 38713, 
38918, 38984, 31149, 
31236, 31297, 31356, 
31575, 31581, 31633, 
51785, 31633, 31888, 
37114, 32156, 32197, 
32213, 32249, 32764, 
3?382, 17412, 32441, 
32578, 37544, 32567, 
32628, 32646, 37662, 
32785, 32717. 37727, 
37751, 32757, -*••, 
32767; 



18787, 18867, 
19519, 19688, 
21317, 21474, 
?IW6, *M9, 
21855, 22884, 
22594, 22739, 
23311, 23452, 
24186, 24U3, 
74679, 2481 t, 
75379, 25456, 
25954, 26877, 
26556, 26673, 
27137, 77244, 
27683, 27798, 
78288, 78389, 
26786, 26682, 
29177, 29268, 
79621, 29786, 
38836, 38116, 
38424, 38498, 
38783, 388SI, 
31113, 31175, 
31413, 31478, 
31684, 31735, 
31926, 31978, 
32137, 32176, 
323IS, 32358, 
32468, 32495, 
37588, 32689, 
32676, 32692, 
32736, 32744, 
32764, 37766, 



INtEttfl n I, 2, 4, 8,16, 32,64, 128, 256,112, 1824, 2848; 

IKCUfflC TflUFflLSE.DEf.il 
TMLLliOE IDSUHS.llt.l; 
INCIUOE RCW.COlMfB.lj 
IKCLIBE KN.JDC.LI8.lj 
IttCUOC Ml. Ml. I; 

PROCEDURE Sltf.FOl.D{|NIEEEfl INDEit; 

IF INDEi AND 756 THEN KMn f AgLE f N2- INDC 1 1 ; 

EROWOC IABLEIINDEII; 

PROCEDURE COS F01DUNTE6ER INDEU; 

IF INDEI AND 2% INK RETURN TABLE HNDEE-MI OR 18880; 
ENflPROC 1ABLEIN4 INDEII; 



PROCEDURE INPUT FUNCTION : INTEGER I,SIF; 
1 -I; SLlfl * 8192 
WHILE I <N 
BEGIN 

11REU) • 5UK 

UlltlJ) « »; 

SUN * SUNOS*; 

IF SUN ) 8188 THEN SUN = -8192; 

I > M; 
END; 
ENDPROC; 

PROCEDURE FASIFOtjfl: 

INIEGEfl A.8,C,D,E,F,J,l,fl,IN?J l ?DHEfl2,Nl^2,P7i92,StNM,COS»,NflE,HM: 
&tlE J. ODD; 

.> * \; 

VHJLE J <=NSTA6£ 

mm 

IF J AND 1 TXN J. DOO IRlfJ ELSE J O&D - FALSE; 
PONCR? «P2(JI; 
NDP2 » N / P0NER2; 
P2D2 * P0NCR2 / 2; 



MB; 

NHILf I < P2J? 
OtfitN 

IN2J > UNDP2; 

COSH • COS fOLDUNW); 

SINN • SIN FOLDUN2J); 
i f » SHIFKTN2JJ): 

R « 6; 

HKILE R < NDP2 



BEGIN 

A • RHN2J; 
8 « TT»f; 
C • BtNDP7; 
C « A » N2j 
IF J ODD 1HEN 
8ESIN 

«Rt ' FMJLIXJREtO.COSNt ♦ Fml . 1X1 IPKC1 ,5IMMI; 

Nln • FffULUlMIOfCOSm - m£KlflEIC>,SINN1; 

I2RE(A> • SH!FTIIIRE<F»> ♦ «RE,-ll; 

12IR<A> • SNIFTIUIM8) * N]H,-|>; 

I2RE4E) SHlFTUIREfP) - NRE.-D; 

UlhiEl « SHlFhm*(8J - H1N,~I>; 

ELSC 
ttSIN 

HkC = FRULII2REiC),COSil ♦ fmk tt?lN<Cl.Slfttfl ; 
Hlt\ i F«Ulii2llMC>,C0SN) - mjUI2REIC>,SINN); 
DREiA) * SHimi2R£(RJ ♦ NRE,-Mj 
IlIIhA) > SHIFIIJ2TIHB) * HIH,-h; 
UVUll = SHtFKl2RE(8l «RE, I); 
I Mil El • SNIFHI21PHB) - t\]f\ r U: 
END; 

R « t\*l} 
(NO; 
MUu 
END; 

J s J||; 

END; 
FKOPROC; 



PROCEOUfiE KABtkEAl l,V>i REAL RESULT; 

RESUM • SBRll»itvtri; 
ENDPROC REM. RE Sill; 



PROCEDURE CMJTPUTr INIE8ER 1 : RtAL VAlUC, VALUE) : 
VALUE I " MSUIREtlbl, XIM<IAI>; 
1*8: 

NHIIE I <N2 
BEGIN 

VALUE « fttfflJRE4!),]MJI<lM; 

PftJtHfTt.Sli 

PRlNTflVALUE/WUEU:,6J; 

PRIN1F (VALUE ,16,61; 

CRtF; 

I'M; 

IF l\22 t | THEN 6EICHA*; 
END; 
ENDI'RUC; 



PROCEDURE WAIN; 
INPUT. FUNCTION; 
CRLF; 

PRINT CSTAKT PAQ6«Ar); 
CRLF; 
FASTfOW; 
CRLF; 
OUTPUT; 
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Basically OS-9 

Bv- Ron Voin I* ^r 



By: Ron Voigls 

2024 Baldwin Court 
GIsndals.ll 60139 



YOU GOTTA HAVE A SYSTEM 



o, 



"ne topic I have been wanting to talk about 

for some time has eluded me. Somehow the column 
has turned to other things. Perhaps it should have 
been one of the first things this column discussed. It 
is the OS-9 System and citating bootable disks. 

Computer systems are the one thing that most 
people dont think about. They're taken for granted. 
It is assumed that they'll be there. And for the most 
part, the impoitant thing is to be able to interact with 
them. Who cares about what is there and how it got 
there? 

For someone working on a large, multiple 
user system everything is always there. The 
individual does his own thing. The system is ready 
to work when he is ready. On smaller systems, like 
the home computer, eveiy thing is on ROM so the 
systems comes up when the power is turned on. Or 
maybe with the newer system, you put in a disk and 
everything comes up from the disk automatically. 
No thought is involved. Just plod ahead and use it. 

The first computer system I used was an 8 bit 
one that ran on a S- 100 bus. This was back in the 
days when I was first learning how to program 
Basic and only had a small incling of what an 
assembler was used for. I wanted to create a disk 
that had my peisonal programs on it. I copied the 
basic programs from a bootable disk to mine and 
added my own programs to it. The net result was a 
disk that looked like the original, but it wouldn f t 
boot. An associate, I worked with, used the same 
type of system. He informed me that my disk did 
not have a 'system' on it. The operating system 
resided on track and it had to be copied over from 



a bootable disk with a special copying program. My 
personalized, bootable disk was saved. 

Later we used a 16 bit system running on a 
CAM AC environment. By this time, I and my 
associates understood the woith of a system. But 
we found that our system was inadequate for what 
we intended to do. We needed multi-terminal 
support, but were only capable of interacting with 
one terminal. I made a quick trip to one of our 
computer geniuses (self proclaimed, of course!). He 
invoked a program called SYSGEN. It asked him 
numerous questions regarding internal and external 
hardware, user demands, and other necessary 
information. When it had finished, we had a new 
'system 1 that was capable of interacting with more 
than one terminal. The morale? YOU GOTTA 
HAVE A SYSTEM! 



THE OS-9 SYSTEM 

Without a set of instructions the computer is 
totally useless. It has to have something to do. The 
trick is to get the information into it. The easiest 
solution and most widely used it to put in a ROM 
with some instructions. Not a lot is needed. Just 
enough infoimation to get the whole thing going. 
With a minimal amount of instructions the computer 
can pull itself up by its own bootstraps and load 
more necessary information from some external 
media. Hence, the term "booting" a computer is 
used to refer to the process of starting up the system. 

On OS-9 Level 1, the ROM would contain 
INIT, BOOT, OS9P1 and OS9P2. OS9P1 and 
OS9P2 make up the Kernel. The kernel provides 
system seivices, like multi-tasking and memoiy 
management. INIT is the initialization table used by 
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the kernel at startup. BOOT loads all modules into 
memory at startup. These modules are essential for 
system startup. 

Level 2 differs slightly. The OS9P2 modules 
is loaded at startup instead of being ROM resident. 
The Color Computer does not have any of these 
modules in ROM, Rather it has them located on 
track 34 of a bootable disk. This track is loaded into 
memory at startup. This also explains why when 
doing a DCHECK on a bootable Color Computer 
disk, a number of sectors will be found to be 
allocated, but not in the file structure. These are the 
ones on track 34. 

To get things going, some affirmative action 
must be taken. It may be only turning the computer 
on for an auto starting system. Or some system 
require entering a character from the keyboard like 
the letter "0". Color Computer users type "DOS" or 
run a boot program from RSDOS. Whatever, things 
start happening. The kernel takes over. It initializes 
the system, A search is made for ROM's in 
memory. The amount of RAM is determined. 
OS9Boot is loaded from the bootstrap device. And 
the system startup task, S YSGO, is run. Within 
seconds, the familiar prompt of the SHELL is 
displayed and everything is ready to go. 

The OS9Boot file contains the balance of the 
modules that are part of the system. Standard ones, 
found in the file are lOMan, RBFMan, SCFMan, 
and PipeMan. Other modules types are device 
drivers and descriptors. These handle the basic I/O 
funtions with things like terminals, modems, disk 
drives and printers. Optionally, other modules can 
be added to the 'boot' file. Many users like to have 
basic commands part of the system. So they add 
ones like DIR, LIST, and DEL. The advantage is 
the module is always ready to be used and there is a 
memory savings, since it gets allocated in a 
continuous block of memory, instead of at the start 
of a memory page. The disadvantage is that 
modules cannot be unlinked from memoiy. The 
only way to get rid of them is to start over with a 
system disk that doesn't have the unwanted 
modules. I prefer to use load and link instructions in 
my STARTUP file. Later, I can unlink something I 

don't. 

In Logical Sector Number on the bootable 
disk are two locations that tell the location and size 
of the OS9Boot file on the system disk. They are 



DD.BT and DD.BSZ. DD.BT is a 3 byte number 
located at relative address $15. This is the starting 
sector of the 'boot' file on the disk. DD.BSZ is a 2 
byte number at $18. It shows the size of the file. 
There are no provisions for fragmenting the file. 
The OS9Boot must be in a continuous area on the 
disk. 

MAKING A SYSTEM DISK 

The simplest method of making a bootable 
disk is to use BACKUP and create a clone of the 
original disk. Then unwanted files can be deleted 
and new ones added. This method does not allow 
you to customize a disk. Also, the disk get 
fragmented from removing modules. Larger files 
add«d to the disk will be located at various locations. 
This will result in slower access time. 

Another method is using COBBLER. As we 
all recall, a cobbler is a man who makes boots. 
Good name for something that creates a boot disk! 
Cobbler generates a new system on a device 
specified in the command line. Entering: 

0S9:C0BBLER /Dl 

will create a bootable disk on drive 1 . Again, 
the disk must contain enough continuous memory to 
store the OS9Boot file. Also, for Color Computer 
OS-9, it writes the kernel to track 34. If something 
is already there, a warning will be displayed. 

WARNING - F1LE(S) OR KERNEL 
PRESENT ON TRACK 34 - THIS 
TRACK NOT REWRITTEN 

It is best to start with a freshly formatted disk. 

Ultimately, OS9GEN is best for creating a 
system disk. Level 2 users have no choice, since 
they can't use Cobbler. And 0S9GEN can be used 
to create custom disk. The OS9Boot can be changed 
as desired. To add a new driver to the system, we 
enter: 

OS9:OS9GEN/Dl 
/D0/OS9Boot 
/DO/DRIVERS/ramdisk 
<ESCAPE> 
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The OSGEN will get the modules from /DO 
and create a new boot disk on /D I. 'Escape 1 is 
entered on the last line to terminate. Color Computer 
owners use <CLEARxBREAK> to generate an 
escape. 

Another method is to create a directory on a 
freshly formatted disk. In the new directory, place 
modules you want in the new system. Use SAVE to 
copy them from memory. Ones like lOMan, SCF, 
RBFand PipeMan are done this way. You will also 
want drivers and device descriptors. These are 
either taken from memory or can be copied into the 
directory. Next create a file with the module names, 
putting a module per line. The modules found in 
ROM or on track 34 for Color Computer OS-9 are 
not placed in the list. Let's say we have a directory 
on Dl called MODULES and a list file, appropriately 
called 'modlist'. These do not take up an immense 
amount of room so we can create the system on the 
same disk. Enter: 

OS9:chd/dl/modu1es 
OS9:os9gen /dl </dl/modlist 



It will read the list from 'modlist' and use the 
modules in the directory. When finished there will 
be a bootable disk in /D 1 . Use DEL to eliminate 
'modlist' and DELDIR for the module directoiy. 
Now copy what you want to the new bootable disk. 



Some bits & bites 



Ir 



Ln several sections of this issure you will note 

that references are made to our Data-Comp's 
MUSTANG-020™. That has it seems upset a few 
(actually 2) leaders. However, because I have always 
fell that even I complaint was sufficient to reply to, I 
will drop in here a short reply. Everyone of you 
deserves an answer. 

First, because Data-Comp is a part of the CPI 
family, we would naturally feel inclined to mention it. 
Secondly.. third1y..etc..we are the source of all 



information, as concerns that particular product. We, 
and only we, can bring you timely information 
concerning it. And if you will notice, the majority of 
our mentions of the MUSTANG-020, in this and past 
issues, is the same kind of information we publish for 
any other product. We tell you what it is, where to buy 
it, what the price is, what is changing or in its future, 
etc. 

The only problem 1 might see is that we have 
access to more actual information concerning the 
MUSTANG-020 than practically any other system or 
product advertised in 68 MICRO JOURNAL (it is 
advertised). If other advertisers (and many who do not 
adveitise) would send us as much information on their 
products, as we have on the MUSTANG-020, 1 guess 
someone would complain that we were talking too 
much about that product (it has happened)! Or it just 
might be a case of - sour grapes f So, we do talk about 
the system, as it is one of the fastest selling system 
advertised in 68 MICRO JOURNAL! 

Now, we didn't cause that (we do like it though), 
actually it is because we were willing to take the 
product development, advertising and other unknown 
cost risk, that some of the others were not willing to 
take. Actually, with us and our other sales efforts, that 
has always mostly been the case! But regardless of the 
reasons no one else did it„.we did, and it is working. 

As to the other mentions of the MUSTANG-020 
in this and others issues of 68 MICRO JOURNAL, 
they come from outside sources. In every instances 
where the MUSTANG-020 was mentioned in these 
pages, it was done without any request on our part. 
The only time we have every meddled with what was 
written by someone else about the system was to 
correct its spelling, or some other trivial editorial 
matter. We never asked to be mentioned, but 
certainly appreciate it that we were! However, 
it was the system that prompted the mention, not 
myself, or anyone on our staff! 

What is important is that we gave them in their 
purchase of the MUSTANG-020, no special price. 
They bought it the same as any of you could. They 
mentioned it (even raved sorta) because it is just that 
good! 

Also, I might mention that there will other 
MUSTANG-XXX system coming. Some will be in 
price ranges that will better suit many of you. But first 
you ought to check out the limited time price in the ad 
on page five of this issue. Oops.. .1 did it again. 

DMW 
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C User Notes 



By: E. M (Dud) Pass Ph.D 

Computer Systems Consultants 
1454 Latta Land, N.W, 

Conyars, Ga 30207 

404 483-1717/4570 




INTRODUCTION 

This chapter continues the discussion of C compilers (for the 
68000 family) and describes some of the concepts behind the 
character-handling functions of a text editor, 

68000 SYSTEMS 

[ recently used UNIFLEX/68000 on a Mustang-020 for 
some file and program conversions and I currently use OS- 
9/68000 on a VME-10, so I have first-hand experience 
with both sets of operating systems, computers, utility sets, 
and C compilers. Each set has its own strengths and 
weaknesses, which are discussed below. 

LOSS OF CARRIER 

1 encountered problems in using both machines remotely. I 
could find no manner in which to make either sensitive to 
loss of carrier on their modems, at least without 
modification of the device drivers. This causes several 
problems. 

One problem involves security. If a user logs in remotely, 
but does not or can not log off, the port is already logged in 
when the next user dials in. The next user could delete or 
modify all or some of the other user's files, list sensitive 
information, etc. This problem is only partially solved by 
requesting that each user log off explicitly before dropping 
the line or dial back in and then log off. 

Another problem involves access. If a user logs in 
remotely and subsequently places the port into raw mode 
in preparation for full-screen editing, computer-to- 
computer data transmission, etc., but then does not or can 
not return the port to normal mode, the port will be 
unusable until reset locally or through another remote 
access. If the system is unattended and there is only one 
modem attached, the system will be unavailable for remote 
access until someone physically corrects the situation, 
perhaps by rebooting the computer. 

On systems sensitive to changes in carrier detect, users may 
be logged out and their ports may be reset to a normal state 
upon loss of carrier detect, thus correcting both of these 
problems. Hopefully, this is a software oversight in both 
systems which will be corrected in a timely manner. 



68000 C COMPILER FAMILY TIES 

Both of these 68000 C compilers were obviously derived 
from the 6809 McCosh family of C compilers, as they shaie 
certain recognizable characteristics. They are almost full C 
compilers, lacking only bit fields and other minor features. 
The UNIFLEX/68000 C compiler implements structure 
assignments and enum and void data types, which the OS- 

9/68000 C compiler does not implement. 

[n both compilers, structures containing members which are 
character strings instead contain pointers to the character 
strings, not the strings themselves. This works correctly in 
most situations, but is confusing to someone tiying to learn 
the C language from one of several texts which emphasize the 
difference between members which are pointers to strings 
and members which are character strings. Thus, the following 
structures share the same sizeof(struct) and organization in 
memory in this family of compilers: 

structxl {charc[IO];}; 

and 
sauctx2 {charge;}; 

Also, both compilers and linkers are quite restrictive on the 
use of extern variables and the linkage of variables across 
modules. The UNIX V and many other C compilers are 
significantly less restrictive in their handling of variable 
linkage. The UNIX V C compiler does not normally require 
the use of extern, automatically linking variables and 
functions by name across modules, and giving error messages 
only in case of missing names or definition conflicts. 

With all of these restrictions, some programs are difficult to 
ever get to link properly. Thus, the following example 
program does not link correctly on current versions of this 
family of compilers. 
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/* header, h file for global definitions 

UN IV char comstr[ 100]; 
UNIV char secnd[50]; 
UNI V char third( 100]; 



********** */ 



/* modulel.c ********** ^ 

#include <stdio.h> 
#define UNIV 
# include" header. h n 

main() 

{ 

putsfin module 1 \n"); 

strcpy (third," this is the third arrayW); 

module2(); 

putsfwe have finished^"); 
} 



/* moduleZc ***********/ 

#include <stdio,h> 
#define UNIV extern 
include K header.h" 

module2() 

{ 
putsCwe are now in module 2\n"); 

sticpyCcomstr^this is a test message\n"); 
module3(); 



} 



/• module3.c ♦♦♦♦♦♦♦♦*♦ * 

#include <stdioh> 
#define UNIV extern 
#include H header.h" 

module3() 

{ 

putsfwe are now in module 3 \jT); 

strcpy(secnd,"this is a second valueVn"); 

puts(third); 

puts(secnd); 

puts(comstr); 
} 



/* correct output (from UNIX V) 

in module 1 

we are now in module 2 

we are now in module 3 



********** *y 



this is the third array 
this is a second value 
this is a lest message 
we have finished 

68000 C COMPILER AND SYSTEM PROBLEMS 

The pioblems that I encountered with the UN1FLEX/68000 
C compiler were reasonably minor ones primarily related to 
the printf family of functions. 

The UNIFLEX/68000 C compiler does not recognize the 
pflinit function, although it does recognize the pffinit 
function. This is a nuisance for someone concerned with 
program portability, as the pflinit (pffinit) function is 
required on the 6809 version of the McCosh C compilers to 
cause the inclusion of the version of the printf family of 
functions which correctly process long (float) data types. 
The OS-9/68000 C compiler recognizes both functions, 
although it treats them as dummy calls with no useful 
effect. 

The UNIFLEX/68000 C compiler does not process the 
following statement coirectly: 

printf f%05d\ 5); 

in that it omits the leading zeroes specified in the format 
string. 

Ihe OS-9/68000 C compiler has been updated (to version 2.0), 
and Microware sent a list of the changes, some of which are 
listed below. 

The compiler has two new options and checks two 
environment variables which specify the include and linker 
search libraries. 

The compiler supports names of up to 256 characters in 
length. 

The preprocessor supports the names LINE and 

FILE to indicate the current source line number and 

file name. 

The compiler allows non-unique structure and union 
names, but requires that member names be associated with 
the designated structure or union. 

The library contains several new functions and includes to 
allow access to additional system functions. 

The problems that 1 encountered with the OS-9/68000 C 
compiler (version 2.0) were also reasonably minor, but are 
potentially bothersome. 
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The first phase of the OS-9/68000 C compiler accepts a 
variable named pc, but the assembler phase rejects it, since 
pc is the name of a 68000 register. The compiler should 
check for variable names reserved by the 68000 assembler 
and change them to prevent this situation. 

The OS-9/68000 C compiler bombs (with a bus error) 
while processing an initialized float array, in a statement 
such as the following: 

float interp(10] • 

{0.0.5,0.3333.0.25,0.6667, 
OA 0.5, 0.4, 0.75. 0.6, 0.8}; 

It does not bomb if the initialization is deleted. 

The OS-9/68000 C compiler produces several warning 
messages which cannot apparently be suppiessed and often 
obscure more important messages. Their generation can 
always be stopped on an individual basis, but this is a 
nuisance in large programs being ported to the OS-9/68000 
system. The warnings most often produced are as follows: 

Warning - Possible degenerate assignment 

{in statements like: if (x - (d « ':'))} 

Warning - Isabel unused 

The default destination of the object file produced by the 
OS-9/68000 C compiler is the execution directory. If the 
object file should not be placed in the system cmds 
directory, the user must remember either to set the 
execution directory before starting the compilation or 
must provide an explicit path on the command line for the 
object file. 

Several bad actions can occur, The test version of a program 
can easily overlay the production version of the same 
program. If the user does not have permission to overwrite 
the program in the execution directory, the compiler will 

issue an error message and discard the new object file. 

Even if the user manages to place the object file in the 
current data directory, OS-9/68000 will not execute it as an 
object file unless its full path is provided or the execution 



directory is set to the same file as the data directory. Since 
OS-9/68000 attempts to execute the object file as a script 
file, the first two bytes of an object file are hex f, 4AFC H , 
and hex "4A" is another representation of an ASCII "J", the 
error message is always "Could not open J", which is 
obscure and confusing to most users. OS-9/68000 should 
check the first two characters in a file about to be executed 
in order to determine if it is a text file or an object file, 
regardless of whether it is in the data directory or in the 
execution directory. 

Another minor irritation is that the linker assumes a 
minimum stack size (2K) (Editor's NOTE: AMEN! - 
DMW) for the object program, so that the user must 
remember to override the default allocation at link time or 
to override the allocation on each execution of the program. 



TEXT EDITOR 

In a previous chapter, a one-window screen editor written 
using CURSES functions was presented. If CURSES is 
available on a given system, the internal edit problems are 
solved. If CURSES is not available on a given system, the 
program can still be used as a model for the development of 
similar capabilities. Also, to make the editor more practical, 
it must be expanded to handle moie than one screen. The 
following discussion is intended to cover both of these 
topics. Some of the character string manipulation functions 
appear in the example section below. 

Although it occupies at least 1920 characters (for a 24 by 80 
screen), many text editors use a screen-image buffer to hold 
the current window being edited. This simplifies many of the 
character-handling functions dramatically when compared 
with the alternative of editing data in the original data 
structures and also assists in the optimization of screen 
updating. For the purpose of the discussion below, the use of 
such a buffer is assumed. 

This window is a virtual image to the user of the data in the 
file being edited. The screen display is normally almost 
independent of the data structure being used, with the 
exception that in many editors which handle files larger than 
main memory, the user is required to explicitly page the 
memory window thru the file. 

When a window is being constructed, the selected text is 
moved from the structure holding it into the screen buffer. 
All character manipulation is done within the screen buffer. 
When lines are inserted or deleted and before another 
window is constructed, the structure is updated from the 
screen buffer. 

The primary operations on the screen buffer in many editors 
are as follows, with the corresponding curses functions: 

operation curses 

update buffer from structure 
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get characters from keyboard geich 
update screen refresh 

move cursor within buffer move 
modify characters in buffer 

insert insch 

delete delch 

change addch 

modify lines in buffer 

insert insenln 

delete delete In 

modify words in buffer 

insert 

delete 

change 

next 

previous 
update structure from buffer 



Curses attempts to optimize the screen updates by 
performing them only when the program calls the refresh 
function. In the limited application to a text editor, this is 
extremely inefficient, as the screen must be refreshed on 
most keystrokes, and effective screen update optimization can 
be done by comparison of data being placed into the screen 
buffer with the data already present there, on a character by 
character basis. 

The word operations listed above are composite character 
operations based on the location of word delimitexs. Most 
modern editors support word-oriented and even more 
sophisticated operations, such as undo last operation and 
automatic line-length adjustment and pagination. 



C PROBI-EM 

The previous problem was to write a function to dump the b- 
tree in alphabetical order. The following structure 
definition and function definitions and calls indicate possible 
solutions to this problem. 



/♦ 

* b-tree structure 

*/ 
struct btree 



{ 



char *stn /+ character string pointer */ 

struct btree *k>, *hi; /* low and high pointers */ 

♦root -NULL; 



* dump b-tree in alphabetical order 

• (recursive-only version) 



W 



dumpbtree(node) 
struct btree *node; 

{ 

if(node) 

{ 

dumpbtree(node->lo); 
puts(node->str); 
dumpbtree( node->hi) ; 

} 
} 

/♦ 

* dump b-tree in alphabetical order 

♦ (iterative-recursive version) (first choice) 
V 

dumpbtree(node) 
struct btree *node; 

{ 

while (node) 

{ 

dumpbtree(node->lo); 
puts(node->str); 
node m node->hi; 

} 
} 



+ call to dump b-tree 
♦/ 

dumpbtree(root); 



A b-tree node may be symbolically represented as follows: 



Inode I 

I I I 
I I I 

low < | > high 

character | character 

strings V strings 

(if any) current (if any) 
character 
soing 



Both of the functions listed above xecurse on the lower 
strings until the lowest string is found. They print this 
string, then the next lower, etc., alternately unwinding the 
recursion and recursing or iterating on the higher strings, 
until the entire list is printed. 

An iterative-only version of the dumpbtree functions above 
is certainly possible, but is substantially more complex than 
either of the functions shown above, because a table of 
unknown size is required to keep track of where in the b-tree 
the function is currently operating. The size of the table is 
determined by the maximum depth of the b-tree. 
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The expected depth of the b-tree may be readily computed, 
assuming a random initial sequence of strings from which it 
is loaded and no further modifications. It is proportional to 
the log (to the base 2) of the number of entries in the b-tree. 
This is for the case of a b-tree with one string and two links 
per node, like the one described above. 

In many cases, b-trees can provide an efficient replacement 
for sorting. If it is necessary to store duplicate strings in the 
b-tree, either the duplicate strings could be stored for later 
retrieval or a duplicate count could be added to each node, 
either with only minor revisions to the loading algorithm. 

B-trees may exhibit pathological situations if they are loaded 
or modified in non-random manners. If a b-tree is loaded 
from an ascending sequence, all of the lower string pointers 
will be null. If a b-tree is loaded from a descending sequence, 
all of the higher string pointers will be null. In both cases, 
the other pointer will form a sequential linked list through 
all of the loaded character strings. 

Searching either of these sequential b-trees is very slow and 
inefficient, even slower than even a sequential table search, 
because of the necessity of following the links. However, 
attempting to apply the first function listed above to either 
case or attempting to apply either function to the second case 
will fail due to stack overflow if the b-tree contains a 
sufficiently large number of strings. An iterative-only 
function would be hardly better in these pathological cases, 
since the number of entries in the table could be the same as 
the number of items in the b-tree. 

If a b-tree is loaded from a random sequence, but is then 
modified in non-random manners (such as deleting every item 
in a ceitain key range or adding a large number of items in a 
close range), parts of it may become badly un-balanced. 

Ihe concept of the balanced b-tree is designed to to overcome 
the problems involved in processing unbalanced b-trees. For 
the next C problem, consider ways in which operations on b- 
trtes may be defined to attempt to keep them better-balanced 
than the those produced by the basic b-tree processing 
functions. Of course, this is an open-ended problem, probably 
with no definitive answer. 



EXAMPLE C PROGRAM 

Following is this month's example C program; it is 
composed of several functions which modify characters in a 
screen buffer. 



#include <stdio.h> 

int iows ■ 24; /* lines per screen ♦/ 
int cols = 80; /* columns per row ♦/ 

int putat(); /* output character ch at (y,x) */ 

addch(ch) 
unsigned int ch; 

{ 

int x = stdscr->_curx, y - stdscr->_cury; 

if (ch !- stdscr->_y[y][x]) 

{ 

putat(y,x,stdscr->_y[y][x] = ch); 

stdscr->_curx = x + (x < cols); 

} 

} 

delchQ 

{ 

int x = stdscr->_curx, y = stdscr->_cury; 
unsigned int ch; 

for ( ; x < cols; ++x) 

{ 

ch - (x < (cols - 1)) ? stdscr->_y[y][x + 1] : 0x20; 
iffchJ-stdscro^yHx]) 
putat(y,x,stdscr->_y[y3Ix] - ch); 



} 
} 



insch(c) 
unsigned int c; 

{ 

int x = stdscr->_curx, y = stdscr->_cury, z; 

unsigned int ch; 

for (z =* cols - 1; z >- x; -z) 

{ 

ch - (z > x) ? stdscr->_y[y][z - 1] : c; 
if (ch !- stdscr->_y[y][z]) 
putat(y,z,stdscr->_y[y][z] - ch); 

} 

} 

main() 

{ 

/* dummy */ 

} 
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If you are a regular reader of 
68 Micro Journal (aren't we all?), 
you might remember an article I 
wrote for the Feb 86 issue of 68 
MICRO JOURNAL about adding 
hard disk drives to my 6809 
system. In that article I bemoaned 
my inability to boot from the hard 
disk and, more importantly, the 
lack of sub-directories in FLEX. 
Well, about the time the article 
was published, I solved the 
problem of booting from the hard 
disk. If you are interested in 
how, please send me an 
S.A.S.E. and ye shall know. 

If you intend to use the 
method that I used to boot from 
the WellWritten hard disk system; 
you MUST have their disk 
drivers in ROM and also be able 
to either re-assemble or patch the 
version of FLEX that you are 
using. But more important, I was 
inundated with letters (and floppy 
disks) from people who had 
added a sub-directory system to 
FLEX. All of these were different 
from each other, but (except for 
HIER) all shared one thing in 
common which is they divided 



& OTHER 
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the hard disk into segments and 
called each of these a directory. It 
really astonished me to see how 
many people had attacked this 
problem and solved it in their 
own way. But reached the same 
basic solution as most everyone 
else. 

HIER is different. It is a true 
hierarchical file system and any 
directory may use any amount of 
available disk space. HIER is a 
patch to FLEX and a collection of 
utilities. Some of the utilities are 
replacements for existing FLEX 
utilities while others are new 
utilities made necessary by the 

sub-directory system. When you 
receive HIER, you get two disks. 
One of these contains only one 
program called INSTALL. This 
program checks thru the version 
of FLEX it finds in memory and 
attempts to tell you what patches 
must be made to use HIER. 

If you do not feel that you 
can successfully install HIER, 
you are advised to return the 
package for a refund (assuming 
that you have not opened the the 
disk that contains HIER and the 
utilities). I cannot comment as to 
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the effectiveness of the INSTALL 
program except to say that it told 
me that no changes were 
necessary, and none were. 
However, I did modify HIER 
because it is yet another 
relocatable program that moves 
itself to the top of memory and 
adjusts the MEMEND pointer to 
protect itself from being 
overwritten. Since Ray Goff 
includes the source to HIER, I 
reworked it to be non-relocatable 
and as compact as possible to fit 
in the small EPROM space that I 
had available. This meant that I 
had to modify FLEX to know 
that HIER was always there in 
EPROM when FLEX was 
booted. 

"THE UTILITIES" 

The utilities included with 
HIER are as follows: BACKUP, 
CHGDIR, COPY, DELDIR, 
DIR t DISCCHK, HOME, UST, 
MAKED1R, MOVE, RUN, 
SETDIR, TREE, UNDER, and 
WHERE. A description of these 
utilities follows. 

BACKUP allows you to copy 
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all files in the current directory 
and all files in all sub-directories. 
This is extremely useful if you 
have two hard disks and wish to 
copy an entire disk to another 
including all files in all 
sub-directories. If you have only 
one hard disk, BACKUP makes 
it very easy to copy a 
sub-directory to a floppy disk. 

CHDIR is used to change to a 
different directory; with it you 
can move the current directory in 
three different ways; to a higher 
level directory, to a lower level 
directory, or to a different 
directory on the same level 

COPY works just like the 
COPY.CMD included with 
FLEX except that a directory path 
name may be included in the 
SOURCE file spec. Files are 
always copied into the current 
directory in the destination file 
spec, thus path names are not 
allowed in the destination, COPY 
can be used to copy files between 
directories on the same disk. 

DELDIR is used to remove a 
directory from the disk. Any files 
in that directory and all 
sub-directories which it might 
contain are therefore deleted also. 
Because this command is about 
as dangerous as a melt-down; 
DELDIR trys three times to 
discourage you from using it! 

DIR works like the DIR.CMD 
utility included with FLEX except 
that it allows you to specify a 
path name so that it can give you 
a listing of the files in any 
sub-directory on the disk. This is 
very useful if you are searching 
for a file. With the regular FLEX 



DIR command you must first set 
the current directory and then use 
DIR to see what files are there. 

DISCCHK is used to check the 
entire structure of the disk, 
DISCCHK starts in the home 
directory and continues thru all 
sub-directories opening, reading, 
& closing every file. All sector 
sequence numbers are checked to 
be sure that file linkages are 
correct. The sector linkages are 
kept in a table and the table 
checked to be sure that two files 
do not claim ownership of the 
same sector. Once DISCCHK 
has finished reading all files and 
building the table of sectors used; 
it gives you the opportunity to 
check the chain of free or un-used 
sectors on the disk. DISCCHK 
processes the free sectors in 
much the same fashion as detailed 
above and reports the number of 
free sectors available. It then 
gives you the opportunity to 
re-link the chain of free sectors. 
When you delete a file, FLEX 
puts the sectors the file used at 
the END of the chain of free 
sectors; thus FLEX will only 
reuse them after all other sectors 
have been used. Should you 
choose to have DISCCHK re-link 
the chain; the chain will start with 
the first free sector closest to the 
edge of the disk and will link 
towards the center of the disk. 
This can improve the appearant 
speed of a disk that has had its 
free chain become broken up by 
the repeated saving and deleting 
of files as often happens during 
program development (or writing 
articles for 68 Micro!) DISCCHK 
is as useful on some floppy disks 
as it is on hard disks. 



HOME sets the disk to the root 
directory. It MUST be used 
before ANY disk, hard or floppy, 
can be used after being formatted. 
HIER stores the location of the 
current directoiy on the disk itself 
and a freshly formatted disk has 
no current directory assigned. 
Failure to run HOME will result 
in a DISK FILE READ ERROR 
when you attempt to WRITE to 
the disk, and using DIR will 
show no files on the disk, even if 
it is FULL! If someone who does 
not use HIER gives you 
something on a floppy disk, you 
must HOME it before you can 
use it. When you return the disk, 
its having been HONCd will have 
no affect on their non-HIER 
system (assuming you did not 
add any sub-directories to the 
disk). 

LIST works just like the 
LIST.CMD provided with FLEX 
except that a directory path name 
may be used for the file to be 
LISTed. 

MAKEDIR creates a new 
directory on the disk. It also 
makes the new directory the 
current directoiy on the specified 
drive. It initially allocates 4 
sectors to the new directory, 
enough room for 40 files. Should 
you attempt to save more than 40 
files in the new directory, FLEX 
will automatically extend the 
directoiy. 

MOVE allows you to move a 
file from one directory to another. 
The file is NOT copied; instead 
the directory information is 
copied from the source directory 
to the destination directory. It is 
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then deleted from the source 
directory. You cannot MOVE a 
file from one disk to another, 
only from one directory to 
another on the SAME disk. 

RUN comes in two versions: 
RUN.CMD & RUN.LOW. RUN 
allows you to execute a program 
located in a directory other than 
the current directory on the 
specified disk. 

SETDIR is used to set the 
current directoiy on a given disk. 
It is much like CHGDIR but 
SETDIR allows you to specify 
any directoiy on the disk. 

TREE prints a listing of all 
directories (and the files in them) 
on a given disk. TREE starts with 
the home directory and its files 
and then proceeds thru all 
sub-directories and their files. 

UNDER is used to determine 
the number of sectors, files and 
directories under the current 
directory on a given disk. This is 
very useful when using 
BACKUP to copy from hard disk 
to floppy. Otherwise it is 
altogether TOO easy to run out of 
room on the floppy. 

WHERE prints the path to the 
current directoiy on a given disk. 

As you can see, HIER is a 
very complete package. Ray tells 
me that he has been using it for 
about two years on his system 
and feels it to be very well 
debugged. I have been using it 
extensively for several months 
and have found no bugs at all. I 
should warn you that Ray added 
the MOVE command at my 



insistance and about MOVE he 
says: "I have checked MOVE out 
fairly carefully, but I would not 
be surprised to hear that there are 
some problems, since I have only 
tested it for about half a day." 
Ray's comment was dated March 
28, 1986. As I write this, it is 
June 4, 1986; and I have not 
found any problems with MOVE. 

Since installing HIER I have 
created directories for each of the 
languages that I use, as well as 
directories for text, etc. HIER has 
made using hard disks with the 
FLEX operating system a 
genuine pleasure and I can't 
imagine how I ever managed 
without either the hard disks or 
HIER! The good folks at 
WellWritten Software have had 
the opportunity to use HIER for 
about as long as I have and they 
ate as impressed with it as I am. 

By now you are thinking that 
I am either 100% sold on HIER 
or that I have been paid off. Well 
I do have a few complaints about 
HIER, some are easily solved 
while others are not. You see, I 
am a UNIX person and Ray is a 
DEC VAX person. This means 
that HIER uses the VAX 
operating system syntax when 
specifying path names and VAX. 
utility names. The utilities can 
easily be renamed to suit you. So 
CHGDIR can become CD, for 
example. But the path names are 
another matter! HIER uses the 
following syntax in path names: 

[home.asmb.sourceJflex.txt 

If you are more accustomed 
to using UNIX or a clone, your 
mind wants to see path names 
look like this: 
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\home\asmb\sorirce\flex.txt 

(Both examples assume you are 
specifying t'nc file FLEX.TXT 
which is in the SOURCE 
directory; v^hich is a child of the 
ASMB directory; which is a child 
of the HOME (or rooO directory.) 

This might appear to be a 
very trivial gripe, but if you 
spend your days at the salt mine 
working with UNIX (or a clone) 
Whe-n you come home to your 
FLFiX system with HIER, the 
difference in syntax will have you 
climbing the walls in short order. 
If you are not accustomed to 
working with UNIX (or one of 
its clones) then this is a very 
trivial gripe. 

To summerize, HIER adds a 
proper hierarchical file system to 
the FLEX operating system. It is 
NOT a kluge! It functions very 
smoothly and appears to be 
thoroughly debugged. I have not 
found ANY bugs in HIER (or 
any of its utilities) after several 
months of extensive use. I can 
not only heartily reccommend it, 
but will go so far as to say that 
anyone who is using the FLEX 
operating system with hard disk 
drives is in very bad NEED of 
HIER. I have talked in terms of 
HIER and hard disks but HIER 
(and its utilities) function equally 
well with whatever size floppy 
disks you might have. 

HIER is available from 

S.E, MEDIA: 

see their catalog - center section. 

FLEX is a trademark of T.S.C 
UNIX is a trademark of A.T.A T. 
DEC A VAX are trademarks of Digital 
Equipment Corp, 
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READING FLEX 

DISK SIR FROM 



R.D. Lurie 
9 Linda Street 
Leominster, MA 01453 

I think that a lot of the misunderstandings 
about the FORTH language have resulted from 
illustrating the language with the wrong kind of 
examples. Usually, the examples are too short to 
do anything really useful, and they are written to 
show some particular feature of FORTH, without 
regard to an audience of beginners or casual 
readers. With that idea in mind, I would like to 
present a useful FLEX utility program which 
illustrates many of the features and conventions of 
FORTH programming. 

The FORTH that I am using runs under FLEX 
DOS and is the FORTH-83 standard. It was 
written by W. M. Federici, who has been so 
gracious as to give it away (see 68'MJ, 2/86)! He 
calls it M FF9". It is important to keep this in mind, 
since any disk I/O will be implementation-specific, 
even though FLEX is the common underlying 
DOS. Mr. Federici has made use of a jump table 
and several special variables to make it easy to 
configure his version of FORTH to various SS-50 
systems (mine is a mixture of SWTP, GIMtX, 
Percom, and home brew). 

You will have to modify some of the words to fit 
a different FORTH you may have, but the program 
basics would still be the same. 

The program listing does not look like the usual 
FORTH program listing, because it is not divided 
into the normal "screens" of 16 lines each. Instead, 
it was written more as a FLEX text file, since, in 
use, it is stored on the FLEX system disk and 
loaded from there as needed. This is one of the 
features of FF9. 

Notice that the program is virtually 
self-documenting when written this way. In many 
ways, the program listed this way closely 
resembles a C or Pascal program, if you call each 
definition a "function" or "procedure", and consider 
the last definition, .DSKID , to be the main 
program. After all, FORTH is a highly structured 
language which won't admit it. 

Remember that FORTH programs are not 
executed in sequence like BASIC. The only way to 
make this program run it to type the command: 

.DSKID 



FORTH 



PROGRAM DESCRIPTION 

This program is called .DSKID . (Note the 
punctuation! There is a space between the FORTH 
word and the period ending the sentence, because 

there might otherwise be confusion as to whether or 
not the period is part of the FORTH word.) The 
first character in the name is . , because this is the 
usual way to show that displayed output is 
expected. The . is pronounced "dot" in this 
context. 

The purpose of .DSKID is to read the FLEX 
"disk identification" which would be important to a 
FORTH user. Since I have one drive, SSDD80, 
which I use for my FLEX system drive, and two 
drives, DSDD80, which I use for FORTH 
programs and data, it is important to be able to 
determine which format was used in initializing the 
disk, as well as the disk name, etc. 

The number of free sectors is not displayed, 
because this number does not reflect the FORTH 
disk usage. Instead, a separate FORTH directory, 
manually maintained, is usually stored on the disk. 
(Yes, it is easy to corrupt a FORTH disk if you are 
not careful.) Since FORTH programs take the 
position that "I own the disk", there is less trouble 
than one might expect. 

DUMMY WORD 

The definition of TASK is simply a way to mark 
the beginning of the program. This is done so that 
the program can be easily erased by commanding: 

FORGET TASK 
TASK is commonly used in this way in FORTH 
programs. 

CONSTANTS 

There is no requirement for doing so, but I like 
to collect all of my CONSTANTS together at the 
beginning of the program. The only requirement is 
that a CONSTANT be defined before it is used. 
However, I have found that putting them all in one 
place makes it easier to find them while I am 
writing a program and later when I am debugging. 
It also makes it easier to keep the names self- 
consistant and non-conflicting. 
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Since all but one of the CONSTANTS referred to 
RAM in some way, it was easier to use 
hexadecimal notation. Therefore, the list of 
CONSTANTS was preceeded by HEX to alert the 
compiler to its use. After the CONSTANTS were 
all defined, DECIMAL was used to shift the 
compiler back again. 

The address offset referred to by most of the 
CONSTANTS is relative to the start of the "screen 
buffer' 1 , which holds four consecutive sectors at 
one time. FF9 has two such buffers, and it is 
impossible to know which one would be used by 
the program at any given time. Therefore, the 
pointers to RAM must be set dynamically at 
execution time. This will be explained in more 
detail later. 

SET UP FOR READING TRACK #0 

FF9 has a set of disk variables which are used to 
paramatize disk access; one of these is BASETRK, 
which sets that track assigned to hold "screen #0". 
On FLEX double density disks, this is usually track 
#1, since track #0 is formatted as single density, 
and its inclusion would foul up the easy conversion 
of screen numbers to track and sector numbers. 
However, BASETRK must be set to in order to 
read the FLEX SIR. Provision for this is made in 
this section of the program. 

Good FORTH programming practice calls for a 
lot of short definitions, rather than a few long 
definitions. In the spirit of this philosophy, 
SET-BASETRK was defined. This word is then 
used by BASETRK->0 and BASETRK->1 to set 
the "screen #0" track to zero and one, respectively. 
Incidentally, notice that FORTH words can be 
made up of any of the printable ASCII set, and the 
words can be up to 31 characters long, all 
significant. Furthermore, the words should be as 
descriptive as possible. 

GET-TRK#0 is the word which does a lot of the 
work. BLOCK is a standard FORTH word which 
reads the desired four sectors from the disk and 
stores the data in the buffer. The address of this 
buffer is left on the Data Stack, which makes 
possible the dynamic access to the buffer 
information. 

PROMPT FOR DRIVE NUMBER 

It is not worth the effort, nor is it desirable, to 
write the program in such a way that the desired 
diive number could be placed on the stack prior to 
calling for .DSKID . Therefore, it is necessary to 
prompt for this number. 



However, SET-BASEDRV must be defined 
first. BASEDRV is one of the disk search 
parameters which can be set by the user. It specifies 
which drive number, 0, 1, or 2, will be the used as 
the first drive in the search chain. Since I have 
three drives and keep my FLEX system disk in 
drive #0, I normally have BASEDRV set to 1. 
Therefore, it must be changed to before FORTH 
can read anything from drive #0. It then must be 
reset to 1 for normal system operation. 

.DSKID-PROMFf comes very close to violating 
the stand against long definitions, but it is so 
straight-forward, I decided to let it go. The first 
thing that happens is that a couple of lines are 
skipped and the prompt is printed. The system then 
waits for keyboard input via KEY. 

The value for ASCII "0" is subtracted from the 
input, resulting in a single digit, ranging from 0-9. 
You simply cannot enter more than one digit, no 
matter how hard you try! This digit is duplicated, 
because one copy is lost as a result of the next 
operation. The digit is compared to M 3 M (remember, 
Reverse-Polish notation) and replaced on the Data 
Stack by a Boolean flag. 

The FORTH "IF... ELSE... THEN" construction 
is confusing, at first, but becomes easy to deal with 
once the stack function is fully grasped. 
Essentially, the IF part is processed when the Data 
Stack holds a TRUE flag, and the ELSE part is 
processed when the stack holds a FALSE flag. 
THEN just tells the compiler that this pail of the 
statement is complete. The Boolean flag is 
removed from the Data Stack as the IF test is made. 
[f the input number was 0, 1, or 2, it is 
duplicated and printed; . is the standard FORTH 
command for printing a number. Execution then 
jumps down to SET-BASEDRV, with 0, 1, or 2 as 
the associated number on the Data Stack. 

However, if the input number was not 0-2, then 
check the FLEX work-drive value. If this is 
selected to be "ALL", then the value read by C@ is 
$FF. Since the program can't handle this many 
drives, default to drive #0. On the other hand, if 
WRKDRV holds 0-2, then use that number with 
SET-BASEDRV. 

The " THEN THEN " is required because of the 
nested IF statements. 

PRINT DISK NAME and EXTENSION 

This is the fiist time we encounter a mysterious 
floating DUP that just shows up without obvious 
purpose. Its use is to make a copy of the buffer 
address and leave it on the data stack. We need to 
use this buffer address a total of eight times 
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throughout the program. We could use 
GET-TRK#0 to return this address each time we 
need it, but it is much better technique to use 
GET-TRK#0 only once, and DUPlicate it on the the 
Data Stack each time we n##d it 

PRINT-DISK-NAME is a good example of a 
self-documenting definition. Examination of these 
three definitions shows that DO-DISK-NAME and 
DO-DISK-NAME-EXT make it absolutely clear 
how PRINT-DISK-NAME operates. It is easy to 
see that the definition of PRINT-DISK-NAME 
would not be nearly as clear if all thrte definitions 
were combined into one. 

The pointer to the disk name is calculated by 
addition of the buffer address and DISK-NAME . 
The name is printed by TYPE with up to 8 
characters. A similar set of operations prints the 3 
characters in the extension. 

PRINT DISK NUMBER 

The disk number is found by the same kind of 
pointer math used for the disk name and extension. 
@ is used to fetch the disk number since it is stored 
as a 16-bit number, but . prints it appropriately, 
since no leading spaces are printed. 

PRINT DISK FORMAT 

It was most convenient to split this operation into 
two words, one dealing with printing letters and the 
other dealing with printing numbers. DO-SEC has 
to make a series of choices, selecting between SS 
and DS and between SD and DD. Since I use only 
the limited standard list of formatting possibilities, 
it was easy to say that less than 19 sectors/track 
means SD, and less than 1 1 sectors/track means 
SS. The defaults are DD and DS, respectively. 

DO-TRK is merely a matter of reading the 
"maximum" track number, adding 1, and printing 
it 



PRINT DISK CREATION DATE 

This was, again, simply a matter of reading a 
single byte of numerical data and printing it. The 
phrase: 

1 .R 
controls the printing format. I cheated a little by 
telling the program to allot only one digit to the 
number, knowing that two digits would be printed 
when needed. But, this way, I ensured that there 
would be no blank spaces between single-digit 
numbers. 

DISPLAY OUTPUT 

DISPLAY-DSKID is the word which controls 
the actual order of printing of the program output. 
Again, by writing the program in this way, it is 
self-documenting, and no further comments are 
necessary. 

COMMAND DEFINITION 

The program is run by commanding: 
.DSKID 
The algorithm is evident from the definition of 
.DSKID: 

1 . Clear the disk buffers. 

2. Get the drive number. 

3. Read the Track #0 data. 

4. Print the data, 

5. Reset BASEDRV, 

6. Clear the disk buffers. 

FLEX FILE 

Of course, .DSKID cannot be used for the name 
of a FLEX disk file. I chose to use 
"P-DSKID.FTH", but that has no affect on the 
FORTH application. 



( ************************************************************ \ 

( .DSKID RDL 05/21/86 ) 

( ************************************************************ \ 

: TASK ; 

HEX 
30 CONSTANT <0> 
210 CONSTANT DISK-NAME 
218 CONSTANT DISK-NAME-EXT 
2lB CONSTANT DISK# 

223 CONSTANT C-HONTH 

224 CONSTANT C-DAY 

225 CONSTANT C-YEAR 

226 CONSTANT TOTAL-TRKS 

227 CONSTANT TOTAL-SECS 
CCOC CONSTANT WRKDRV 

DECIMAL 
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{ ************************************************************ V 

( Set up for reading TRK #0 ) 

{ ************************************************************ j 



; SET-BASETRK ( ) 

[ r ) BASETRK >BODY ! ; 

: BASETRK->0 ( n ) 

SET-BASETRK ; 

: BASETRK->1 ( n - — ) 

1 SET-BASETRK ; 

: GET-TRK#0 ( addr ) 

BLOCK ; 



{ Set the number of the first ) 
{ accessable disk track ) 



( Load track #0 into one of the 
( disk buffers and put its address 
( on the DATA STACK 



( ************************************************************ 

( Drive prompt 

( ************************************************************ 

: SET-BASEDRV ( ) ( Set the number of the first 

I 1 ] BASEDRV >BODY I ? ( accessable disk drive 



: .DSKID-PROMPT ( ) 

CR CR •" Drive Number (0-2): * 
KEY <0> - 
DUP 3 < 
IF DUP . 

ELSE WRKDRV CS DUP 
255 = 

IF DROP DUP . 
ELSE DUP . THEN THEN 
SET-BASEDRV ; 



pronpt 

fetch keyboard input 

a valid number? 

yes, echo it 

no, fetch FLEX WRKDRV 

does W*A? 

yes, so use 

no, so use WRKDRV 

select proper drive 



( ************************************************************ \ 

( Print disk name ) 

( ************************************************************ \ 



: DO-DISK-NAME ( — ) 

DUP 

DISK-NAME + 8 TYPE ; 

: DO-DISK-NAME-EXT ( ) 

DUP 

DISK-NAME-EXT + 3 TYPE ; 

: PRINT-DISK-NAME ( > 

. ■ Disk name: 9 
DO-DISK-NAME 

m « 

DO-DISK-NAME-EXT ; 



( save buffer address ) 
{ point to name & print ) 



( save buffer address ) 
( point to ext. & print ) 



( print a 



( ************************************************************ j 

( Print disk number ) 

( ************************************************************ \ 



i PRINT-DISK* ( — ) 
DUP 

SPACE ." #" 
DISK# + 8 . | 



( save buffer address ) 
( fetch disk! & print ) 
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( *************************************** ) 

( Print disk format ) 

( ************************************************************ \ 



; DO-SEC ( ) 

DUP 

TOTAL-SECS + C@ 
DUP 19 < 
IF ." SS" 
ELSE . p DS" THEN 
11 < 

IF , " SD" 

ELSE . " DD" THEN ? 

: DO-TRK ( ) 

DUP 

TOTAL-TRKS + C@ 1+ . ; 



( save buffer address ) 



( yes, so single side ) 
( no, so double side ) 

( yes, so single density) 
{ no, so dbl. density ) 



( save buffer address ) 



( ************************************************************ ) 

( Print disk creation date ) 

{ ************************************************************ ) 



: DO-C-DATE ( ) 

DUP DUP 

C-MONTH + C@ 1 .R 

.- r 

C-DAY + C@ 1 .R 



( save buffer address ) 



H i M 

C-YEAR + C@ 1 .R ; 

( ************************************************************ \ 

( Display output ) 

( ************************************************************ \ 

: DISPLAY-DSKIO ( — ) 
CR CR PRINT-DISK-NAME 
PRINT-DISK# 
DO-SEC DO-TRK 
DO-C-DATE 
CR ; 

( ************************************************************ \ 

I Command definition ) 

( ************************************************************ \ 



.DSKID { ) 

FLUSH 

.DSKID-PROMPT 

BASETRK->0 

GET-TRK#0 

BASETRK->1 

DISPLAY-DSKID 

1 SET-3ASEDRV 

EMPTY-BUFFERS 

CR ; 



( clear old data ) 

( fetch drive number ) 

t enable reading TRK #0 ) 

{ read TRK #0 from disk ) 

{ reset to normal cond. ) 

( reset to normal cond. ) 

( clear old data ) 
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Las Vegas NCC 



This year may have heralded the end of NCC for 
the Las Vegas scene. That is the opinion of many 
who attended the annual affair. Which alternates each 
year between Las Vegas and Chicago. 

I had hoped to return from the grand event and 
report to you about some new and exciting offerings. 
Well, it just didn't happen. NCC '86, in my opinion, 
war a bust. 

The only bright spots that I can report to you on 
are GIMIX and MICROWARE, and some new (to 
me) software and 68XXX hardware. GIMIX and 
Micro ware were drawing good crowds. 

GlMIX was showing their entire line, including 
a system configured same as a MUSTANG-OIO™, 
as well as some new UNIX™ like software (more at 
a later date). UniFLEX™ from TSC was running on 
all systems shown. The system they had configured 
same as a MUSTANG-020 was running to the tune 
of 20 Mhz. Thats right.. .20 big uns. Now, that is 
real Big League stuff! 

Also they were hooked up by Arcnet™ LAN 
between their booth and the Microware booth. It 
appeared to be working fine and should be a real plus 
to all those who have need of such services. More 
and more we are hearing about networking..of one 
type or another. Microware should theirs ready for 
release soon. It's part of the wave of the future in 
computing. 

While the GIMIX 68020 systems were well 
demonstrated, running everything from BASIC to 
SCULPTOR+. I saw many who went away 
wondering about the pricing of 68020 systems from 
other manufacturers. 

SCULPTOR+ was well represented by Bruce 
Campbell in the GIMIX booth. Bruce is the USA rep 
for this fine software development system. New 
Sculptor manuals looked great, some new Sculptor 
prices, not so great. The market will certainly 
determine the acceptance of it. However, even at the 



1986 
a bust? 



new rates for some systems, it is still a bargain if you 
are writing any significant programs. Especially those 
that are of the 'data-base' type. We recommend 
Sculptor* as it is well supported and does all it is 
advertised to do. Bruce is porting it to various other 
systems. That should make an expanded market for 
all those developing new software packages. 

Microwares booth was a pretty busy place. 
They had OS-9 running on several systems. One 
configured same as a MUSTANG-020. Another was 
the Atari running smoothly with OS-9, level 2. That 
will be a real nice package when all the ntcessary 
support software is available. Volkswagen* (word 
processing) and other packages announced at the '86 
COMDEX, but not available yet. At least I have not 
seen any of it. I can't help but believe that when it 
appears in force (software supported), it will give the 
CoCoa real run. Actually, I believe it will be priced 
less and deliver more than the CoCo. From that 
viewpoint I can't believe Tandy will continue the 
CoCo line much longer. 

The CoCo has birthed a cult. A loyal and rather 
vocal band of supporters, of which we are one. 
However, users aside, Tandy seems bent on 
following MS-DOS, whatever its course. Which, in 
my opinion, spells the end of the CoCo, as we know 
it, 
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COCO OS-f - FilM' 

SOFTWARE 



SPECIAL 



] 



K-BASIC 

K-BASIC under OS-9 and FLEX will compile 
TSC BASIC, XBASIC and XPC Source Code Files. 




K-BASIC now makes the multitude of TSC XBASIC Software 
available for use under OS-9. Transfer your favorite BASIC 
Programs to OS-9, compile them, Assemble them, and BINGO 
- useable, multi-precision, familiar Software is running under 
favorite Operating System! 



!!! SPECIAL 



$99.00 



m 



Sculptor 



Full OEM & Dealer Discounts Available! 



THE SCULPTOR SYSTEM 



THE PACKAGE 



PmipvrvTwritvnwniu unrig nadncKUl lM*pu*?n IM h *t 

fldi ■ndCnlmi- i-JTrr ■mirwi ■V-TVuT^"' L ^ 

p rodtrtwy Wiih Viilpirti^«h*dm*r*hiiiut«iji<j|ji*r 
a wik cmt b* achtnvd m jw»i a M* hrurk 

AN ESTABLISHED LEADER 

fuwbfefantfWhrjfhfttfrthMttrfl h tatt Ittm h«d m I W L *nd 
dne»tfton, wttft todVack from v*«wr «k>«^aafc<Mi 
Uuc SrtJtK» K» bMfi ?*fo*d And mhmmxd to bwxrw 
W of th»maM«d«ft4*r. (mi ««d •&**«« n*ifeMyi»<f* 



. ApnYrtr nrwtWmn 
i Sriwm (ami fcppNpp 



DATA DICTIONARY 

Lm h Mr ™*v h*** '"* SI Tm i^ "it 
ly*"" tine rttwil P p#*tH H«v Fiat j 

1 tVP« UH k*rn#tVkj 



I I S*tHj4ufib»y pn«j*m» 

I SafnpW EHTpy«™ 
Fo* «nil( podur* ** fun htw *v**rtn n «v*Uhlr jm • 

Facts Features 




tNDJL JUNG TEC HMQUi; 

Scui%*w mflnntsm t H ("* wui**. ** 

rah data hlr Ftaynli 
mjrnh#n mi linlijBMf m 



RELATIONAL OPERATORS 
Lwwiiin 



lm * wkl rvp* rrw,' br chnwtt cttd#d into <ttm o*h*t Hfc 



CNPUT DATA VAUDA7 ION 

w*^i*»*> III •> da la die Bona rv 
O 0p»9*!vwcod»dk** 

ARITHMETIC OPERATORS 

Urufyir 



LrMduni* njualti 






DATA RLE STRUCTURE 

t'* MJ. *xmhJ length r*; . w,h 



SYSTEM INDEPENDENCE 

Sc\jfc*v n «v«JahW -*i fhWIV ?Ml*f#ri( nwhntn *mi *. w 

VMS tlw VRkrhOKv ht trf lupf*TltfiJ Htd ^ ftflf r*TH»n him 

■n*ic«pnpy(prk Ihriurt" 
l#n>r iw* Mid, mwih«nn Sc J 



APPLICATION PORTABWTY 

i * d>iiF in i*f 
i Yauund 




Sculptor for 68020 
OS-9 & UniFLEX 

$995 



ItpMMlCV 

f fl ft IT.* «k«t. 

PrtibtMv h^rdnT urtft high <p—d dJ w tapHwnf Ru* 



SPEED AND EFFICIENCY 

Sf ulptUf UWi 4 (Hi *nrf pnwn ndrmpm iwhnlqv W*»h 
TTi7U*Wi miLknl i*Tr*\»l irf dtf> Mm puvti Itw ItnjHt irf N*4 

Sculptor * kiuflh vntf ah *i Uimj\**i* m rt**i**dm* 



INTERNATIONALLY ACCEPTED 

&H uttng « i*m(5*F * fjn»ijur«i*JTi lifting Vu4*ri(jnpmD 
inrfnJTTMfein m M BHMti *nd hrnnaf tfMlyi iu rniunr TNri 
m«Wi If Ah ldid piuduit V r **ih*t rjrv** ****** itmm 
MUMhtffW VI Ov uamVJ Av*ft#4«wt ITt# Ai'Mt «t «m1 1 1*^» 



OS-9;UnlFLEX 
IBM PC Xcnh 
MS DOS Network 



$995 / $199 / $49« 

* * ••• 



68000 DnIFLEX 
Altos Zcnbt 
DMX 



SPECIAL FEATURES 

(.h..v 

. I *m\in#l jwkJ p 



MAXIMA AND MINIMA 



Mi 



hWvb^ 



cwv 




Mm*rww* f*f wd Woflth 
MAKtmurti ;«rntd kniph 1»'7(j? 
Hasarnum Srirh p« rw<4d ff?r>7 
M*umuni rtrT4if r|i prr Mr \h n 

Mi^inwm Mn rwf prtj^am lb 

H*^muitiiiprriMrt 



PROGRAMS 

' IVlnrfxirrtltvcwl 

i r. 



S^uopnoMicKtfactcfMu 
SCREEN K)RM LANGUAGE 

Pro, 

[ vr,»i4l< 'if pii ■y^mrrwr p. 



(.n«ri,vii 
<-™i* 



' Comifc *rr*#n hum p , ^' | »J'*tT' 



Q.9a_. 
RriirtTpn^rtf<n 



Kxord* 
Fm.4tyk3c«ltwbp*^9r«n»ind 



|>«VpvmkTtf of knrmll tvp* 



• Full I>evdoptmenC Package 
•♦ Run Time Only 
••• C Key File Librar? 



$1595 / $319 / $798 

* ♦• ••• 



MS DOS 
PC DOS 



$595 / $119 / $595 



MUSTANG-020™ Users - ask for special discount. ^^ k a Tradcmai1t rf Microproccssof ^^ Ud . 

!!! Please Specify Your Operating System St Disk Size !!! 



AvtJIifcPtty L«9^^«- 

P . FLEX. CCF - Cotof Cp™P*er FLEX 

O - OS-9, CCO - Cobf Compw^r OS9 

U.UntFLEX 

CCO ^CokxCorr>pwi«rOi8k 

OCT - Co** Compowr Tap* 

*OS*» a Tr«idrT\*fcolr*crowafe«nd Motorola 
*FLEX*aTfadama^orTe<^irjica<sysiftm$Corvsu«ants 




'• Shipping "■ 

Add 2% US A. 

(min $2 50) 

Add 5% Surface Foreign 

10% Air Foreign 
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ASSEMBLERS 



ASTRUK09 from S.E, Media - A "Structured Assembler for the 6809* 
which requires the TSC Macro Ass* nbler. 
F.CCF. $99.95 
Macro Assembler tor TSC-7 he FLEX STANDARD Assembler. 

Special- CCF $35.00; F $90.00 
OSM Extended 6809 Macro Assembler from Lloyd MO. -* Provides local 
labels. Motorola S-recorda, and Intel Hex records; XREF. Ger^rate 
OS 9Memory modules under FLEX. 
FLEX, CCF t OS 9 $99.00 
Relocating Assembler/Unking Loader from TSC. ~ Use with 
manyof theCand Pascal Compilers. 
F.CCF $150.00 
MACE, by Graham Trott from Wlndrush Micro Systems *♦ Co Resident 
Editor and Assembler; fast inseraclve Al. Programming for smafi to 
medl unseized Programs. 
F.CCF- $75.00 

XMACE - MACE w/Cross AssemWer tor 
6800/1/aY3/8 F,CCF~ $98.00 
TRUE CROSS ASSEMBLERS from Computer Systems Consultants - 
Supports 1802/S, Z-80, 6800/1/20/8/1 1/HC11. 6804. 
680S/NC05> 146805. 6809/00701, 6502 family, 8080/5, 
8020/1 I2Q&C3SA 9t 40748/0 4a^9/C49/50V 874 8/49 , 

8031/51/8751. and 68000 Systems. Assembler and Listing formats 
same as large t CPU's format. Produces machine independent 
MotorofaSTexL 

FLEX, CCF t OS9. UhiFLEX each . $50.00 
any 3 -$100.00- (he complete seJ wfC Source 
except toe 66000 Some -$200.00 
UnFLEXSdOOO -$50.00 
XASM Croee Assemblers lor FLEX from S.E. A/fcDIA - This set of 
6B00/1/aY3/SrB, 6301. 6502. 8080/5, arid 280 Cross Assemblers 
uses the familiar TSC Macro Assembler Command Line and Source 
Code format. Assembler opbons. etc., In providing code for the target 
CPlfs. 

Comphtoset r FL£Xonfy - $150.00 
CflASMB from S.E, MED\A - 8 Bit Macro Cross Assembler with same 
features as OSM; cross assemble to 6B00/1/2/2/4/5W9/11. 6502. 
1802. 8048 Sera. 60/85. 2 8, Z-80. TMS-7000 sera. Supports the 
target cNp's standard mnemonics ar td addressing modes. 
FlEX,CCF:OS-9FuHpBdtage- $399.00 
CRASMB 16.32 from SB. MEDIA- Cross Assembler for tf* 68000. 
FIEX.CCF, OS 9 $249 00 



UTILITIES 

Baslc09 XRef from S.E. Media - This BaskOQ Cross Reference UtBity is a 
Ba$ic09 Program which wiB produce a 'pretty printed* lisbng with 
each line numbered, followed by a complete cross referenced listing of 
an variables, external procedures, and line numbers called. Also 
includes a Program List Utility which outputs a last "pretty printed* 
listing with line numbers. Requires 9aaic09 or RunB. 
O&CCOobi. onfy-$39.95; w/Souna - $?R95 

Lucldata PASCAL UTILmES(RequiresLUCIDATA Pascal vera) 

XflEF - produce a Cross Reference Listing of any text; oriented to Pascal 
Source. 

INCLUDE - Include other Files In a Souice Text, tiduding Binary ♦ 
unllmitednesting. 

PROFILER - provides an Indented, Numbered. 'StructogranV of a Pascal 
Source Text File: view the overall stricture of large programs, program 
iniagiify.ela Suppled In Pascal Source Code: requires compilation. 
F.CCF-EACH 5--$40.00, 8 m $50.00 

PUB from S.E. Media ~ A UnlFLEX BASIC decompiler Re-Create 
a Source Listing from UniFLEX Compiled basic Proorams. Works w/ 
ALLVersionsof6809UniFLEXbajuc 
U -$219.95 
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COCO OS* 9" Hi*" 

SOFTWARE 



LOW COST PROGRAM KITS from S.E. Media - The following 
programsare available for FlEXoneitherS or 8 Inch disk., 

1. BASIC TOOL-CHEST S29J5 
BLISTER.CKfl>, pretty pttnter 
LNEXREF BAS:ltnecross-referencer 
REMPAC.BAS.SPCPAC.BAS.COMPACSAS 
(wtwq supeiduousoode 

STRIP.BAS: superfluous lirie-numbersstfipper 

2. FLEX UTILITIES KIT $39.95 

CAT S .CMD: alphabet! catty-sorted directory listu ig 
CATD.CMD: date-sorted d rectory listing 
COPYSORT.CMD: tie copy . alphabetically 
COPYDA7E.CMD:; tile copy.bydate-order 
FILEDAlE.CMD:cha/kflefilecreaiiondate 
INFO.CMO(& INFOGMX.CMD): tensdlskanibutos&contartls 
RELINK.CMD (& RELINK82}: re-orders fragmented free chain 
RESQ.CMD: undeJates (recovers) a deleted H(o 
SECTORS.C MO: show sector orders free ciein 
XL .CMD: super text lister 

3. ASSEMBLERS/DISASSEMBLERS UTILITIES 
$39.95 

LWEFEED.CMD:'modjlarlse'disassembleroLitput 
MA1VI.CMD: decimal, hex. binary, octal con versions & tables 
SKI P.CMD: column stripper 

4. WOflD - PROCESSOR SUPPORT UTJLmES 
$49.95 

FULLSTOP.CMD: checks kv capitalization where required 
BSTYCIT.BAS (.BAC):Styta to dot-matrix printer program 
NECPRINLCMD; Stylo to dot-ma Grix primer filter code 

5. UTILITIES FOR INDEXING $49.95 
MENU.BAS: selects required program from list below 
WDEX.BACrWOrdlndex 

PHRASES BAC: phrase index 
COMTENT.BAC: table of contents 
WDXSORT.B AC: last alphabetic so«t routine 
FORMATE R.BAC: producesa 2-coJumn formal) edlndex 
APPENO.BAC: append ar\y numberof files 
CHA R.BIr*line reader 

FULL SCREEN FORMS OtSPLAY from Computer Systems 
Consultants - TSC Extended BASIC program supports any Serial 
Terminal with Cursor Control or Memoiy-Mapped Video Displays; 
substantially extends the capabilities of the Program Designer by 
providing a lab^dnven method of describing and using Full Screen 
Displays, 

FandCCF,U-$25.Q0.W/Sotwoo$5Q.00 

SOLVE from S.E. Media - OS-9 Levels I end II oriy, A Symbolic 
ObjecVlogic Verification & Examine debugger h cluing inline 
debugging, disassemble and assemble. SOLVE IS THE MOST 
COMPLETE DEBUGGER we have seen lor the 6809 OS-9 seriesl 
SOLVE does It aid With a lich selection of monitor, assembler, 
disassembler, environmental. execution end 



Availability l«g»nrft~- 



Please Specify Your Operating System & Disk Size 



■ FLEX. CCF - Color Compear FLEX 
.OS-9. CCO s Color Computer 0&9 
► UniFLEX 



CCD -Color Computer Disk 
CCT - ColprComPular Tape 

* OS-9 is ■ Trademark of fcfauttar* and Motorola 

• FL£ X it a Trarieroart of Technical Systems CoosuXanls 



% a O iii? Mitli 
into <6t6> S<?-*60l Hill I 111 II im 



•• Shipping " 

Add 2% U.S.A. 

(min. $2.50} 

Add 5% Surface Foreign 

10%Air Foreign 
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CoCo OS-«- FLIX * 

SOFTUIME 



oiher rrta£BSa/*«>/i cornmands, SOLVE is tie MOST POWERFUL too*- 
kit item you can ownl Yet. SOLVE l$ simple to use! With complete 
documentation, a ana pi Even/one WSo has ordered this package has 
ravedl See review • 68 Micro Journal - Deoember 1985. No 'blind' 
debugging hera, full screen displays, rich and complete in information 
presented. Since review in 66 Micro Journal , thlsls our teste s( moverl 

Lewis I &}}<*tf/*OS-9 Regular $149.95 

SPECIAL INfROOUCTrONOFFER $69.9$ 



DISK UTILITIES 

OS-i VOIsk from SE. Media - For Level I only, Use the Extended 
fctomory capability of your SWTPC or Gimlx CPU card {or similar format 
DAT) for FAST Program Compiles, CMD execution, high speed inter- 
process communications (without pipe butfan). ate. - SAVE thst 
System Memory Virtual Disk size is variable in 4K incredments up to 
«0K, Some Astembly Required. 

L9V9II OS-Oobj. $79 95.m/Sovz9 $149 95 

O-F from S.E. Media - Written in BASIC09 (with Source), includes: 
REFORMAT, a BASICOfl Program that reformats a chosen amount of 
an OS 9 disk to FLEX Format so it can be used normally by FLEX; and 
FLEX, a BASIC09 Program that does the actual read or write function 
to the special OF Transfer Disk; user friendly menu driven, Resd tie 
FLEX Directory. Delete FLEX Files, Copy both directions, etc, FLEX 
usersusetnespeo&ldiskjustlikeariyotnerFt-EXdisk 
0-6809*9000 $7*95 

LSORT from S E. Media - A SORT/MERGE package for OS-9 (Level I * II 
only). Sorts records with fined lengtis or variable lengths. Allows (or 
either ascending or descending sort Sorting can be done in either 
ASCII sequence or alternate collating sequence. Right. Sell or no 
justification of data fields available. LSORT includes a full set ol 
corm^nts and errors messages, 
OS 9 $65,00 

HIEfl from S£. Media * HER is a modern hierarchy/ storage system hr users 
under FLEX. It answers tie needs of those who have hard disk 
capabftoes on thee systems, or many files on one disk - any size 
Using HLER a regular (any) FLEX dlak (8 - 5 - hard 
rftak) can have sub directories. By this meftod «Se problems of 
assigning unique names to Nes ts less burdensome Offerer* files wit) 
the exact same name may be on the same disk, as long as they are in 
different directories. For the Winchester user this becomes a musl Sub- 
directories are the modern day solution that afl current large systems 
use. Each directory looks to FLEX Ilka a regular Hie, 
axeept they have the extension ' DIR* A full set ol 
directory handling programs ore included, making the operation of 
HlER simple and straightforward. A special inttal package is included 
to instal HER to your particular version of FLEX. Some assembly 
requved, Install indicates each byta or rafarence change needed. 
Typically * 6 byte changes hi source (furnished) and one assembly of 
HIE Ris afl list a required. Mo programme requved I 
"kilrvdoetfon Special ' $69.95 



OOPYMULT from S.E. Media - Copy LARGE Disks to several smaller 
disks. FLEX utilises allow the backup of ANY size disk to any 
SMALLER size diskettes (Hard Disk to (topples, 8* to 5", etc.) by 
simply Inserting diskettes as requested by COPYMULT. No tooling 
with directory deletions, etc. COPYMULT.CMD understands norma) 
"copy* syntax and keeps up with files copied by maintaining 
directories tor both host and receiving disk system. Also includes 
BACKUP.CMD to download any size 'random' type Ma; 
RESTORE.CMD to restructure copied -random" Bes tor copying, or 
recopying back to the host system: and FREELINK.CMD as a tonus* 
utiity that 'relinks' tha free chain of floppy or hard disk, eliminating 
fragmentation. 

Completely documented A ssembly t anouagv Source files fndude d ALL 4 
Programs (FLEX, 6'or51 $99.50 

COPYCAT from Luddata - Pascal NOT reojred. Allows rearing TSC Mnl- 
FLEX, SSB OOS68. and Digital Research CP/M Disks while operating 
under FLEX 1 O. FLEX 2.O. or FLEX 9.0 with 6800 or 6800 Systems. 
COPYCAT wMJ not perform miracles, bul. between the program and 
the manual, you stand a good chance of accord ithi ng a transfer. Also 
includes some Uliflbes to help out Programs eupoiod in Modular 
Source Code ( Assembly Language ) to 1 telp sohre unusual problems. 
FandCCF5 m *$S0.OO F8 m $65.00 

FLEX DISK l/TlimES from Computer Systems Consultants - Eight 
(8) ditierent Assembly Language (w/ Source Code) FLEX Utilities lor 
every FLEX Users Toolbox: Copy a File with CRC Enors; Test Disk tor 
errors: Compare two Disks; a fast Disk Backup Program; Edit Disk 
Sectoral Ltvjevtze Free-Chain on the Disk; print Disk Wenrjf cation; 
and Sort and Replace tte Disk Oirectory (in aorted order). - PLUS - 
Ten X BASIC Programs Including: A BASIC Resequencer with 
EXTRAS over *RENUM" ike check lor mtssing label definitions, 
processes Disk to Disk instead of in Memory, ate. Other proorejna 
Compare. Merge, or Generate Updates between two BASIC 
Programs, check BASIC Sequence Numbers, compere two 
unsequenced files, and 5 Programs for establishing a Master Directory 
of several Disks, and sorting, selecting, updating, and printing 
paginated lisprtgs of these files. A BASIC Cross- Reference Program, 
written in Assembly Language, which provides an X-Ref Listing ol the 
Variables and f\e%4)tvwi Words in TSC BASIC, HBASIC, and 
PRECOMPtL E R BASIC Programs. 

ALL U&ties indude Sovrc*? (either BASCorAL. Sow* Coda), 
FendCCF -$50.00 
BASIC UtMes ONLY for UniFLEX- $30.00 



COMMUNICATIONS 



CMODCM T e te camrn unications Program from CnrrfSJler Systems 
Consuhants, toe - Menu-Driven, supports Oumb^Teriniiial Mode. 
Upload and Download in non-protocol mode, and tha CP/M 
"Modem7" Christensen protocol mode to enable communication 
capabeiies for aJmoslany requirement. Writtenin*<7. 

FLEX, CCF. OS 9, UiFZ£X wjmcnmptete 

&X/TV $100.00 without Sr^rae $50.00 

Uhtt£X660C0^a*T>p^SoiMOM$100.00 

X-TALK from S£. Meduj - X-TALK consists of two disks and a special 
cable, the hookup enable* a 6800 SWTPC computer to dump UniFLEX 
fries directly to the UniFLEX MUSTANG-020. TNs is the ONLY 
currently available method to transfer SWTPC 6808 UniFLEX fries to a 
66000 UniFLEX system. Gimix 6809 users may dump a 6809 UnFLEX 
file to a 6809 UniFLEX five inch disk and it is readable by the 
MUSTANG-020. 7 he cable is specially prepared with internal 
connections to match the non-standard SwrPC SO/9 VO Db25 
connectors. A special SWTPC S+ caMe set is also avadabJe. Users 
should specify which SWTPC system he/she wishes to communicate 
with the MUSTANG- 020. The X-TALK software is furnished on two 
disks. One eight inch disk contains S.E. Media modem program C- 
MOOEM (6809) and the other disk is a MUSTANG ^020 five inch disk 



AviOabSlty L»9*nds- 

F .HEX. CCF -Color Compiler Fl£X 
O - O&Sl CCO « Color Ck>mpuUjr O&B 
U- UnFLEX 
CCO -CotorCompui*fOisk 

CCT -Color ComptJcr T ap* 

• OS* is* Tr«s«marii ol Micro ware and htotorot* 
•FLEX*aTradwru^c4T#chr^calSyslorT»(^ja^jriar*i 



S!t Please Specify Your Operating System & Disk Si/c !!! 



%%>nsr«S cnrfmjfjjr 

■■- .(vto teiuet? 4«oi atlfl I Mill 1141 
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with C-MOOEM (66020). Texl and btnaiy fifes may be deadly 
tiansfeired between die two systems. T>*e C-MOOEM programs are 
unaltered and perform at excellent modem programs also. X-TALK 
can be purchased wkh or without the sped* cables, but this spedaJ 
price is avaiable to registered Ml JSTANG-020 used only. 

X-TALK CZ M>l>hht (cab*.2*Sks) $99.95 

X-TALK Solhm&dskSotHy) $6995 

X-TALK»toCUOOEM$<AMvm $149.95 
XOATA from S.E. Media - A COWIJNCATION Package lor Iw UriR.EX 
Operating System. Use wkh CP/M. stem Frames, other UriREX 
Systems, eta Veritas Traramfeaton using checfcsun or CRC; Re* 
TranamftB bed blocks, elc. 

U-$299.99 



EDITORS & 
WORD PROCESSING 

JUST from SE. Media - Tea Formatter developed by Ron Anderson: for 
Do! Matrix Printers, provides msny unique features, Output 
"Formatted" Text to the Display. Use the FPRINT.CMD supplied for 
producing multiple copies of die "Formatted" Text on the Printer 
INCLUDING IMBEDDED PRINTER COMMANDS {very useful at other 
times also, and worth the price of die program by Itself). "User 
Configurable* for adapting to other Printers (comes set up for Epson 
MX 80 with Graftrax): up lo fen (10) imbedded -Printer Control 
Commands'. Compensate! tor a "Double Width" printed line. Includes 
the normal line width, margin, indent, paragraph, space, vertical skip 
lines, page length, pege numbering, centering, fai, justification, ate. 
Use win PAT or any other editor. 

• Now suppfied as a twoolsk set: 

Dbk0f:JUST2.C$JOobj4Cta§ l JUST2.TXTPL93OurMi=l£X -CC 

Obk*2:JUSTSCobf*aw*xx**inC:Fl£XOS9CC 

Ths JTSC and regular JUST C source are two separate programs. JTSC 
oompJee to a version that expect* TSC Word Processor type 
commanda,(.pp.BP,ceetcJ Great tor your older text files. The C source 
compiles to a standard syntax JUST CMD object fife. Using JUST 
syntax (,p ju ,y elc) With at JUST functions plus several additional 
printer lormattitg functions. Reference the JUSTSC C source. For 
those wanting an excellent BUDGET PRICED word process** . widi 
features none oft) Mothers have, TNsisitl 

Osk(VPL9FlEXot^FACCF $49.95 
askS9t(2)F&CCF&OS9(Cmion)-$699S 
OS968K000 compter witft Source - 579.05 

PAT torn S.E. Madia . A hJ featne soeen oriented TEXT EDiTOR with aB 
the best of *PlE n T For few who swore by and loved only PC, tNs Is 
for youl All PC features and much moral Too many reaVree to fist 
And rf you don 4 ! like these, change or add your own. PL-9 source 
furnished. *C* source available soort Easily configured to your CRT, 
wtthspeoa) conftg section, 

Rood* FLEX $129.S0 

'SPEOALtNTROOUCTIONOFFER' $79.95 

SPEClALPATAJUSTCOMBOC*texjra>l 

FLEX $99 95 

OS-968KV9cslonS22*.00 

SPECIAL PATOUS1 COMBO 68K $249DO 
Note: ,X/ST«r ^source avaffeb/eftjv OS 9 

CEDRIC him S.E. Media - A screen oriented TEXT EDITOR widi 
ovaaabJify of VEHKr aid. Macro definitions, connguabJe 'permanent 
definable MACROS' . ai standard teaiures and the fastest 'gtobaf 
functions in the west A simple, automatic terminal config program 
makes this a real •no hessef procXid. Only 6X in size, loevwtg die 
average system over 165 sectors for text buffer - appr 14,000 P*us of 
freemernoryl Exoafineferpmo/amms^aswelasfexi. 

R49J+ $129.95 

3PECUL tNTROOUCftONOf FER FL EX $6935 
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BAS-EOCT from S.E. Media - A TSC BASIC or XBASIC soeen editor. 
Appended lo &ASIC or XBASfC. BA&EDfT Is trampa/*n1 to norma) 
BASfOXBASIC Operation, Allows editing wNle In 

BASC/XBASIC. Supports Ons roHo**>g functions: OVERLAY. 
INSERT and DUP LINE. Make editing BASC/XBASIC programs 
SIMPLE! A GREAT time and effort saver. Programmers love rtl NO 
more retyping entires lines, etc. Complete with over 25 different CRT 
terminal con figuration overlays. 

Fl£K CCF. STAR-OOS Regular $69.95 
LknHwd SfcW OrTwr $39.95 

SCREOITOR III torn Wlndrush lAcro Systems - Powerfti Screen. 
Oriented EditorAAkxd Processor. Almost SO different command a; over 
300 pages of Oocumentaaon with Tutorae*. Features Multi-Column 
dsplay and editing, 'decimal efgrr ccJumns (AND add them up 
automatically}, multipie keystroke macrofl. even/do* page headers 
and footers, imbedded printer control codes, all justifications, -help" 
support, store common command series on disk, etc Use suppled '"set* 
ups". or remap die kairboard to your needs. Except lor propo/rbneJ 
printing, this package w*l 00 ITAUJ 

€000 or 6809FLEXorSS8OCS> OS-9 $1 75.00 



SPELLB X^mpufer Dknanary" from SE. Mafia ~ OVER 190,000 
wotdaf Loo* MP a word torn wtinJ? your EoJ$Df or Wfcud Prvo^ww 
(wii} *e SPHCMD tABty wnfch opera*** in Me FLEX UCS). Or 
check and updale tw Text aner entry*, ADO WORDS to the Dictionary, 
"Flag* Questionable words in the Text. "View a word in cortfexr 
before changing or ignoring, etc. SPELLB ftrai checks a "Common Word 
Dictionary*, then tiki normal Dictionary, then a "Person* 1 Word Lisr. 
and finally, any "Special Word Utf you may neve specked. SPELLB 
also eikwrs the use olSmafl Disk Storage ays terns. 

FvtdCCf $129.95 
STYLO-GRAPH from Great Plains Computer Co. - A lill-aoeen oriented 
WORD PROCESSOR ~ (uses the 51 x 24 Ottpby Screens on C0C0 
FLEXfSTAR-DOS. or PBJ Wordpak). Futl screen display and editing; 
supports fl» Daisy Wheel pmpx-rtk*nai printers. 

NEWPRICES6809CCfaidCeO-$99>9S t 

ForO>$179.95.U.$299 9S 
STYLO-SPELL from Great Plains Computer Co. - Fasl Compter 
Dictionary, Complements Stylograph. 

N£wPRlCES6d09CCf*ndGCO$694S. 

ForO $99.9SM $149.95 
STYLO.MERGE torn Great Plains Compute? Co. - Merge fcfefing Ust to 
"Form' Letters, Piinl multiple Flos, elc., tve-ugh Svytio. 

NEWPRGES6BQ9 CCF$r*CCO- 9*935, 

ForO $7995.0 $12995 
STYLO*PAK~ Graph +Spef ♦ Merge Padu^e OeeilH 

ForO- $329.95, U- $549.95 

0.0000 $305.00 



Availability 

F . FLEX. CCF . Goto* ComptAw FLEX 

O -OS 9. CCO k Color Compute OS-9 

U.Urvfl£X 

CCO -Co»orCo">P»/'»-Dt»k 

CCT . Coter CompUpr Tape 

* O&g «• Trademark el M-oowara and Mrtorvla 

' FLEX as Tradamarit d TecfinlcsJ Syvttms Coniulfanis 



Please Specify Your Operating System & Disk Size 






§«•? MitlA 






u« ♦ *K4* 



SflrTlDAnE 



111 
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AckJ 5% Surface Foreign 

1 0% Air Foreign 



68' Micro Journal 



August '66 



33 



(6*5) 



Telex 5106006630 



842-4600 A 

-fcti if IT 

5900 Cassandra Smith Rd 
HixSon. TN 37343 

lof information 

CoCo OS-*" FlIX" 

SOFTWARE 



PROGRAMMING LANGUAGES 



PI/9 from Windrush Micro Systems - By Graham Trott. A combinason 
Editor Compiler Debugger. Direct source-io-object compilation 
delivering fast, compact, re-entrant, ROM able. PIC. 8 & 16-bit 
Integer* A 6-digit Real numbers for all real-wo/ld problems, Drect 
contiol over ALL System resources, including interrupts. 
Comprehensive library support; simple Machine Code Interface: step- 
by-step tracer for instant debugging. 500* page Manual with tutorial 
guide. 

F.CCF -$198.00 



PASC from S.E. Media - A Flex9 Compiler wrth a definite Pascal flavor. 
Afiyone with a bit of Pascal experience should be able to begin using 
PASC to good effect In short order. The PASC package comes 
complete with three sample programs: EO (a syntax or structure 
editor), EDITOR (a simple, public domain, screen editor} and CHESS 
(a simple chess program). The PASC package come complete with 
source (written tn PASC) and docu mentation. 
FLEX $95.00 



WHIMSICAL from S.E. FvEOtA Now supports flea/ Ntmbers. "Structured 
Programming" WITHOUT losing trie Speed and Control of Assembly 
Language! Single-paas Compiler features unified, user defined VQ-. 
produces ROMable Code; Procedures and Modules (including pre- 
compiled Modules); many "Types* up to 32 bil Integers, 6-digit Real 
Numbers, unlimited sized Arrays (vectors only): Interrupt handling; 
long Variable Names; Variable Initialization: Include directive; 
Conditional compiling; direct Code insertion; control of die Stack 
Pointer; elc Run-lime subroutines inserted as called during 
cornpilaJion. Normafy produces 10%le$scod*ti)anPU9. 
FandCCF- $195,00 



FORTH from Steam* Electro nice - A CoCo FORTH Programming 
Language. Tailored to tf>e CoCol Supplied on Tape, transferable to 
disk. Written in FAST ML. Many CoCo functions (Graphics. Sound, 
etc.). Includes an Editor. Trace, ate. Provides CPU Carry Flag 
accessibility. Fast Task Multiplexing, Clean Interrupt Handling, eks. for 
the"Pio\ Excellent ■Learning" boll 
Cok* Computet OrVt/^58.95 



KANSAS CfTV BASIC from S.E, Media - Basic for Color Compute* OS 9 
with many new commands and sub-functions added. A full 
Implementation of the JF-THEN-ELSE logic is Included, sllowing 
nesting to 255 levels. Strings are supported and a subset of the usual 
string functions such as LEFTS, RIGHT*. MID$. STRINGS, etc. are 
indudad. Variables are dynamically allocated. Also Included are 
additional features such as Peek and Poke. A must for any Color 
Computer user running OS-9. 
CoCo OS 9 $39.95 

C Compiler from Wlndrueh Micro Systama by James McCosh. Full 
C for FLEX except bit-fiekJs, including an Assembler. Requites the 
TSC Relocating Assember if user desires to implement his own 
Libraries. 

FandCCF -$29S.OO 

C Compiler from kilrol - Full C except Doubles and Bit Fields, 
streamlined for the 6809. Reliable Compiler: FAST, efficient Code. 
More UN IX Compatible than most 

FLEX, CCF,OS-9(L9vetltOMy), U+$$7SJ0O 

PASCAL Compiler from lucldata - ISO Based P-Code Compiler. 
Designed especially tor Mcnxanpuier Systems. Allows linkage to 
Assembler Code for maximum flexibility. 
FandCCF$-$99,9$ F9T-$99.95 

PASCAL Compiler from OmegaSoft (now Certified Software) - 
- For the PROFESSIONAL ISO Based, Native Code Compiler. 
Primarily for Real-Time and Process Control applications. Powerful; 
Flexible. Requires a "Motorola Compatible* Ralo. Asmb. and Linking 
Loader. 

FandCCF -$425.00 - One Year MatnL $100.00 

OS 968000 Version- $900.00 

KBASIC - from S.E. (VEOIA - A "Native Code" BASK) Compiler wNch is 
now Fully TSC XBASIC compatible. The compiler compiles to 
Assembly Language Source Coda. A NEW, streamlined. Assembler Is 
now Included sitowing the assembly of LARGE Compiled K-BASIC 
Prog/ams. Conditlonalassembty reduces Run-time package. 
FLEX. CCF. OS-9Conv*e*/Assomhier$ 1 99 .00 

CRUNCH l.OBOL from S.E. (VEOIA - Supports large subset of ANSII 
Level t COBOL with many of the useful Level 2 features, Fun FLEX 
Fife Structures, including Random Files and the ability to process 
Keyed Files. Segment and fink large programs at runtime, or 
implemented as a set of overlays. The System requires 55K and CAN 
be run with a single Disk System. A very popular pnxfod 

Ft£X t CCF:Nofmaty $199.00 

Special introductory Price $99.95 



GAMES 



RAPIER • 6809 Chess Program from S£. Media - Require© FLEX and 
Displays on Any Type Terminal. Features: Four levels of play. Swap 
side. Point scoring syaiem. Two display boards. Chafige skill level. 
Solve Checkmate problems in 1*2-3-4 moves. Make move and swap 
sides. Ray white or black. Thla ia one of the strongest 
CHESS programs running on any microcomputer, 
estimated USCF Rating 1600+ (better than moat tt£' players at 
higher levels) 

FandCCF $79,95 



Availability (.agenda- 



Please Specify Your Operating System & Disk Size 



F - FLEX. CCF _ Color Computer Fit X 

O .OSe. CCO z Color CompuiarOS-9 

U.UrafLEX 

CCO - Color Compuiar Disk 

CCT . Color Computet Tape 

' 0&£ is a Tradama/* ol J*«o wars and Molorola 

* FLEX « aTradama/fc ol Technical Systems Consuttanls 




•• Shipping " 

Add 2% U.S.A. 

(min. $2 50) 

Add 5% Surface Foreign 

10% Air Foreign 
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DISASSEMBLERS 



SUPER SLEUTH from Computer Systems Consultants taereajve 
Disassembler, aitemrfy POWERFUJ Disk Rle Binary/ASCII 
E«jrtw»Criapg». A6*nUe Of FULL Cfeaxaambty. XREF Ganer», 
Label *Name Changer, and Files of •Standard Label Mames* for 
different Operating Systems. 

Cotof&mpum SS50 Bus (af tfAJL Soma) 

CCD(32KReqV) Obf. a* $49.00 

F, $99.00- CCF. Obi>O*f$S0.00U,$t00.00 

CCF. w/Sbt/BS $99,000, $101.00 

CCO.Obj.Ot*t$5Q.QQ 



DYNAMITE* ~ Excellent standard "Belch Mode" Disassembler. Includes 
XREF Generator and "Standard Label" Files. Special GS-9 options wr* 
0S*» Version. 

CCF\Ot4,Oity$tOO.OOCO,CX4.C>ty$S9,9S 

F.' " $100 00- O.obiectanty $150.00 

U. ' ' $300.00 



DATA-BASE ACCOUNTING 



XOMS from Westchester Applied Business Systems 
• Powerful 08MS: Ml. prog/am Mrifl work on a single sided 5* tfsk, yet 
Is FAS-T. XDMS Level I provides an "entry fever System for 
defining a Data Bate, entering tnd changing the Data, and prododng 
Reports. XOMS Level I adds Me POWERFUL -GENERATE" facility 
wiln an English Language Command Structure for man%wtalii»g to 
Data to create new tie Structures. Sort Select, Calculate, etc XDMS 
Level ttl adds special 'Utilities* which provide additional ease in 
setting up a Date Base, such ae copying old data into new Data 
Structures, changing System Parameters, etc. 

XOMSSytimvMmvMl $24.95 

XDMSWI-F ACCF $129.95 

XDMSLvtUF&CCF $199.95 

XDMSMtB.FA CCF $269.95 



XOMS IV from Westchester Applied Business Systems - 
XOMS /V is a brand new approach to data management, it not only 
permits users to describe, enter and relieve data, ttM also to process 
entire Ate prvdudng customized reports, screen displays and fde 
ovtpi/l Processing can consist of any of a set of standard high level 
functions Including record » id fold selection, sorting and aggregation, 
lookups In other files, special processing of record subsets, custom 
report formatting, totaling and subtotaling and presentation of up to 
Ihree related fileses a 'datehaAe'onuser defined output reports. 

XDMSfV.F. CCFSTARVOS. SKVOS $350.00 

Uw*h8toXOMStV-$2S0,00 
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MISCELLANEOUS 



TABULA RASA SPREADSHEEr from Computer Systems 
Constants - TABUIJV RASA is svniar to DESKFOPrPLAN; 
provides use of tabular computation schemes used tor analysis of 
business, sales. and economic conditions. Menu driven; extensive 
report-generation capabilities. Requires TSC'sE wended BASIC. 
F and CCF, U- $50.00, W Sours- $100.00 

DYNACALC - Electronic Spread Sheet for Ihe 6609 « id 68000. 

F. OS.9 and SPECIAL CCF - $200.00, U - 



$395 00 

OS968K 



00 



FULL SCREEN INVENTORYyMRP from Compute* Systems 
Consultant* - Use the Fuf Screen InveniDry SrcfcsrtUateriria 
Requirement Planning for meinta*\ing inventories. Keeps hem field 
file in alphabetical order tor easier inquiry. Locate and/or phot records 
matching partial or complete item, deacnpfan. vendor, or attnbutes; 
find backorder or below stock lavets. Printouts in item or vendor order. 
MRP capablity for the maintenance and analysis of Hierarchical 
assemblies of items in the inventory file. Requires TSC's Extended 
BASIC. 

FandCCF t U>$S0,00. tfSotsce-$i00J0 



FULL SCREEN MAILING UST from Computer Systems Consultants - 
- The Full Screen Mailing Ust System provides a means of maintaining 
simple mailing lists. Locate all records matching on partial or complete 
name, dfy. state, zip. or attributes for Listings or Labels, etc. Requires 
TSC's Extended BASIC 

FandCCF, U - $50.00, w/ Source .$ 1 00, 00 

DIET-TRAC Forecaster from S.E, Media - An XBASC program that 
plans a diet In terms of either calories and percentage of carbohydrates, 
proteins and fats (C P 6%) or grams of Carbohydrate. Protein and Fat 
lood exchanges of each of the six basic food groups (vegetable, breed. 
meat, skim milk, frur? and fat) for a specific individual. Sex. Age. 
Height, Present Weight, Frame Size. Activity Level arid Basal 
Melanotic Rale for normal individual are taken into account. Ideal 
weight and sustaining calories for any weight of the above individual 
are calculated. Provides number of deys and daily calendar after 
weightpoai and calorie dsn is determined. 
F -$599S t U- $89.95 



Availability Lapwrda- 



!! Please Specify Your Operating System & Disk Size 



F - FLEX. CCF - Color Compuiaf FLEX 

O . OS*. CCO c CoVh Compuler OSS 

U.UniFLEX 

CCO - Color Computer Otck 

CCT * Color Compuir Tap* 

* OS-8 tsa Trademark at Moowara md Motorola 

* FLEX m a TrarJamark of TaoVwaJ Syaiams Constants 
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A new version (CoCo) will arrive soon, and it 
should be a dandy. Level 2 OS-9 (Microware would 
not acknowledge this, a secret(?) I suppose), still a 
'bit banger' port(s?) and 128 to 512K of RAM. It 
has a hard battle ahead to ward off the new and 
coming systems running OS-9. Tandy better rethink 
the prices (I hear from my trusty sources) or it will 
configure out way too steep, compared to some of the 
coming systems. For one, the Atari! 

Despite what happens to the CoCo, we will 
always be indebted to Microware for the excellent 
support they have given to both the system and it's 
loyal community of users. It made a lot of folks 
aware of the real power of the 6809. A message we 
were preaching for years before any of the others 
even acknowledged that it was realty around. Again 
Thanks Microware! 

Microware was also showing a fine Motorola 
VME system running OS-9. We hear many good 
things about the VME bus. And will be doing more in 
the VME arena, in the months to come. OS-9 is a big 
force there. 

It is apparent that Microware has become a real 
player in the game of computer operating systems. 
No doubt it has a lot to do with their attitude towards 
their users. I hear nothing but good things about their 
support and cooperation. From underdog right up 
towards the top, and it looks like clear sailing ahead. 
What with CD-I and some other things coming. 

Ken Kaplan, President and founder of 
Microware presented a formal forum on CD-L It was 
well attended by the press as well as other interested 
parties. CD-I is the Wave of the Future for high 
fidelity audio, video and data, combined on one 
media. The operating system is OS-9 and the CPU is 
a 68XXX device. A combination proven in time and 
action. We will publish the specification for CD-I in a 
future issue. I predict that CD-I players, within the 
next three years, will be more popular and priced less 
than the current VCR market. 



I tried to cover all the other vendors that might 
have something that you would be interested in. Most 
all the new systems were using the 68020. The prices 
varied. A few were trying to dump off 68000 and 
68010 systems at prices above most of the 020 
systems. However, I did find several 68020 
manufactures that had very reasonable prices and 
were offering good support. Most were UNIX™ 
systems. I am in the process of gathering additional 
information, firm prices (some were going to reduce 
to even lower levels), software available, support 
levels, vendors, etc. Will let you know in the coming 
months as I get it all sorted out 

In conclusion, I must admit that I was veiy 
disappointed in NCC 1986 - Las Vegas. The crowds 
were way down. Pre-show estimates were 50-60,000 
attendees, 600-900 exhibitors. I counted about 400 or 
so exhibits. As to attendancc.well, atone point I 
counted badges. Of the 50 or so I noted in one 
session, 27 were exhibitors, 12 were foreign visitors 
and the rest were press or paid (assumed). I might 
add, that if Comdex could get their press registration 
down as pat as NCC does, it would be a much more 
enjoyable adventure. 

All the cab drivers (who knows better?) were 
predicting that this just might be the last year for NCC 
in Las Vegas. Also I caught a real duzzy of a cold on 
the plane (Delta) going to Vegas... seems their heating 
system flaked out and we were mostly all wrapped in 
blankets on arriving in Las Vegas. Sure glad it wasn't 
the engines or control systems that decided to poop! 

So, I guess the market is maturing. I believe 
shows of this type are on the way out. The print 
media as well as other means, are doing a better job 
of educating those who need to know. Also the 
expense is getting a bit steep. Several I talked to 
stated that this was their last NCC. Many pulled up 
stakes and left early. Fact is, some seemed to believe 
the Comdex shows are a better bet. From my 
observations of the Spring '86 Atlanta Comdex and 
the Summer L.as Vegas NCC, I agree. 

Tell you 'bout Chicago NCC next year? 

DMW 
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INTERACTIVE 
KARNAUGH MAPPING 



Bradford Taylor 
Sharm Engineering 
Box 97 
Mulvane. KS 67110 

I r ve always hated Karnaugh mapping. 
Never could understand why someone would go to 
so much trouble just to get a reduced boolean 
equation. The main problem I had with Karnaugh 
maps were that simple problems were too trivial to 
map and complicated problems were too hard to 
manage with the maps. Of course I was always 
able to do those darn things for design courses in 
college, but after the final it was forgotten. 
Besides, real engineers didn't use Karnaugh maps 
in the real world. All you needed to know was 
what a Nand or a Nor gate was and you could 
remove redundant components by just looking at a 
schematic* 

Of course, it always comes to pass that you 
must use something that you dislike. The reason in 
this case was the coming of programmable logic 
devices such as PAL's, PLA's and the like. 
Hardware logic design became a software design 
task rather than a bag of hardware tricks. Also, 
these devices seemed to work better and were 
easier to manage if theie were fewer terms used in 
their logic programming. 

It just so happened that I was able to attend a 
CAD seminar on programmable logic devices. 
During the lecture, all of a sudden, out of nowhere 
appeared an expensive interactive CAD/CAM color 
graphics terminal system. One of the software 
packages that was demonstrated with this system 
included an interactive Karnaugh map generator that 
was used to help define logic expression for 
programmable devices. Well, $10,000 is a hefty 
amount to pay for a piece of software to say the 
least, but I was impressed none the less. This was 
something I had to have for my very own even 
though I couldn't afford the table the system sat on. 

But, I had a few Aces up may sleeve. I knew 
I had my Heathkit terminal and my tiusty FLEX 
system and of course a r C compiler at home. 



FOR THOSE WM 



Besides, my time didn't cost $10,000 for a few 
hours of fun. So, armed with some ideas of my 
own and my old college text books I set out to 
develop an interactive Karnaugh map program. 

According to the texts, the Karnaugh map is 
analogous to Venn diagrams of set theory. The 
products are elements in this theoiy, and a truth 
table is equivalent to the set of all elements in this 
theory. Analogously with set notations it is 
convenient to denote rows and columns of the 
Karnaugh map as shown in the following figuie: 



+— +— -+ — +— + 
1 1 1 |0 1 1 

I 1 I 1 1 1 1 1 

+— +— ♦— +™ +c 
I 1 I 1 1 I 1 I 
D+ — • f — + — + — + 
1 1 1 1 1 1 

B 



And, according to the text books, a human 
being is well trained to perceive two-dimensional 
figures and to recognize which of them belong 
together although these areas are scattered over the 
table. The simplification of Boolean expressions is 
thus equivalent to setting up a truth table in map 
foim and then trying to find the minimum number 
of product terms which would cover the ]'s in the 
table. For example, from the figure, the minimum 
boolean expression is F = ~A*C + ^B*A. (Here, 
'-' denotes NOT, '*' denotes AND and V denotes 
OR operations.) 
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It may be easy for a human being to perceive 
the two dimensional figure, but computers must do 
things systematically. This became a major 
challenge. 1 began implementing the optimization 
by looking for the groups of two's and four's just 
like the exercises in the text books. This proved to 
be a disaster as I was not up to programming image 
recognition. 

Referring back to the text books, I came 
acioss the chapter on the Quine-McCluskey method 
for minimization. For this method, all the true 
products from the map are arranged in groups 
depending on the number of bits set in each term. 
Every row in a group is compared against all the 
rows in the next group, and whenever a 
combination is possible, the combined rows are 
saved into a new table. Combination can occur if 
terms vary in only one bit and "don't-care" bits 
must match exactly. This process continues until 
no more combinations are possible. All duplicate 
teiuis are deleted. 

Now, having discovered this piece of the 
puzzle, I was able to complete the task and the 
result is the program KARN. Adding a truth table 
display to the screen was frosting on the cake.. 

The only remaining major task was 
eliminating the keyboard echo that is associated 
with the getchar() function for FLEX. I 
accomplished this by calling the non-echo character 
input routine directly through the Driver Vector 
table found at location SD3E5 in FLEX. This 
proved to be an interesting problem in itself. I 
could have implemented an assembly language 
routine to do this, but I wanted to keep the entire 
program in 'C for claritv. 

This program was compiled and linked using 
the version 1.6 Introl-C compiler and linker. Other 
than the I/O routines, I tend to believe the program 
can be transported to other systems as I have 
transported it to one Unix system. Of course the 
terminal screen-erase and cursor-positioning 
functions need to be configured to a given terminal. 
This can probably be handled with the curses 
package as has been discussed by Bud Pass. 

To run the program, just enter KARN and 
the work screen will be drawn. The J, I, L and 
comma keys are used to position the cursor left, up, 



light and down respectively around the Karnaugh 
map. The 'K' key is used to toggle the elements 
from to 1. The Escape key is used to return to 
FLEX. As elements are toggled, the minimized 
boolean equation is immediatly displayed at the 
bottom of the screen and the truth table is updated 
on the right half of the screen. 

I have successfully used KARN to help 
design the logic for a GPIB/RS-232 Spooler and a 
Audio D/A - A/D signal processing board. Since I 
was given very little board space for these designs, 
minimized logic was a requirement. So Karnaugh 
maps can be fun and profitable. 



+++ 



Kara — Generate boolean equations and 
truth table from interactive 
Karnaugh map. 

Bradford Taylor 
Sharm Engineering 
Box 97 

Mulvanc r Ks67110 
Version 1.0 
May 24, 1986 



/♦ 

••* Declare globals 

♦/ 

char mat[4]f41; /• Map image •/ 

char m[48]; /• Minimized truth table •/ 

char dont[48]; /• don't Cares for truth tabic •/ 

char chcckcd[48]; f* Minimization intermediates •/ 

char ncw[48]; 

char ncwd[48}; 

char savcd[2][48]; /• Non checked terms •/ 

char string[256]; /• Expression print string •/ 

int maxterms; /• Max term counter •/ 

int terms; /• Number of actual terms •/ 

int row.col; /• Row and Column counters •/ 

char lcttersJ4) - {'AVB'/CyD'}; 

charordcrl4][4J «* { /• Actual term order •/ 

0,1,3.2, 

4.5,7,6, 
12,13,15,14, 

8.9.11,10}; 

^define DELEFE 0x50 

#dcfiac ESC '\033' 

#dcfinc UP r 

^define DOWN '/ /• Cursor control keys V 

#dcfinc LEFT J 
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^define RIGHT T 

^define TOGGLE 'It' /♦ State toggle key */ 

tf define forever for(;;) 



*♦♦♦ Main enliy 

♦/ 

maioQ 

{ 

eraseO; /* Erase scrcco ♦/ 

for(row*»0;row<4;+4Tow) 
for(col=0;col<4;++col) 
mat[row][col] » 0; 

/* Initialize counters ♦/ 
maxtcrms = 
row m 
col - 0; 

grid(); /* draw the grid ♦/ 

help(); /* draw help map ♦/ 

dispchar(); /♦ display chars ♦/ 

equatioa(); /* display equation ♦/ 

truth(); /• display liuth table ♦/ 

edit(); /♦ c<Jil kamaugh •/ 



*** interpret characters and build screen 

♦/ 

edit() 

{ 

forever 

{ 
/* position to proper grid */ 
posxy(co!,row); 

/♦pick proper key action ♦/ 
swiich(tolower(getkey())) 

{ 

case DOWN: row - (row+l)&3; break; 

case RIGHT: col = (tol+l)&3; break; 

case LEFT: col « (col- 1) A3; break; 

case UP: row = (row-1)&3; break; 

case TOGGLE: 

mat{ row] (col] - ~mat[row)[colJ; 

squarc(col.row); 

equatiooQ; 



states (); 
break; 

case ESC: 

move(22,0); 
return; 

} 



I 



/• 

**♦♦ Draw grid 

♦/ 

grid© 

{ 
priDtat(0,9 l "A N ); 
priatat( 1 , 1, H 4—4 — 4- — 4- — V); 
printat(2,l,"| | | | J"); 
priotatQ.I/V- +<— i,~- +—+"); 
priniai(4,l,"| I I | |"); 
printat(5,l,"+— 4— 4- — 4 — +CT); 
priDtai(6,l l N l i I i D; 

piiatat(7,0, ,, D+~+—4.— +—+*); 
priQtat(8.1,"| | | | f); 

printat(9,l, H 4—- 4— 4— »— -4-"); 
p^iatat(10,l3, ,, B ,, ); 

} 

/♦ 

♦♦♦ Draw help keys 

♦/ 

help() 

{ 

printat(12,9," A "); 

priatal(13 v 9,T); 

printat(14,9,'T); 

priolat(15,4,"<- J K L ->"); 

pnalat(16,9,V); 

printat(17,9,T); 

printa!(18,9rv N ); 

prialat(19,4,"DIRECnONS"); 

prinlal(20,0,"K lo Toggle/ESC lo Quit"); 

} 
/♦ 

♦♦♦ Initialize and draw truth table 

♦/ 

titithO 

{ 

printat(0,45,"A B C D | F 1 ); 

priotat(1 ,45," 4 — "); 

statesQ; 
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I 
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••• show slates of truth table 

•/ 

statesQ 

{ 
int numb,ij,k,bit; 

for(numb-i-0;i<tenm;++i) 

i 

for(bit«lj«0;bit<16;++j 1 bit+-bit) 

{ 
if(donl[il&bit) /♦ Don't Care ♦/ 

k - 'X*; 

else if(m[i]&bit) /• High term ♦/ 

k - W, 
else 

k - V; 

mQvc(aumb+2,45+}*3)\ 
outchar(k); 

} 

pfintat(numb+2,60, i 'H M ); 
-♦-4 numb; 

} 
if(!numb) /• All don't cares? •/ 

{ 

prmtat(2,45."X X X X*'); 
printat(2.60rH H ); 
numb - 1; 

} 

/* er«se previous stales ♦/ 
foi{i-numb;i<maxiernis;++i) 

{ 

printat(i+2,45r "); 

priolal(i+2,60." "); 

} 
maxterms - numb; 

} 

hilo(n) 

{ 



int i; 

fof(i-0;i<4;++i) 

{ 
if(nA8) 

outcharfH'); 
else 

outchar('L'); 
nr«-l; 
outcharf '); 



outcharf *); 

} 



••• position character to actual position 

•/ 

posxy(x.y) 

int x.y; 

{ 

n»ve(y*2+2 l * # 4+3); 

1 



••• Fill kamaugh map 

•/ 

dispcharO 

{ 

int i; 

for(i-0;i<4;++i) 
disprow(i); 



••• display grid row 

•/ 

disprow(r) 

int r; 

{ 

int i,n; 

fof(i-n*0;i<4;++i) 
square(i,r); 



/* 

••• fill individual square 

♦/ 

square(cr) 

int c,r; 

i 

posxy(c.r); 
if(mat[rj[c]) 

outchaifl*); 
else 

outcharfO*); 
P°s*y(c.r); 

) 
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♦♦♦ show equation derived from malhU 

equation () 

{ 
char temp[32]; 
int count.ljj.bit; 



♦siring - 0; 

mioimize(); /* Quioe McCluskey ♦/ 

for(count-i-0;i<terras;++i) 

{ 
for(biul l [-j*0;bit<16;bit«.-bii,++j) 

{ 
if(doot[i]&bit) 
continue; 

else if(mii]&bit) 

else 

temp[W+] - *-'; 
femp[l++] - letters[j]; 
temp[l++) = '♦'; 

} 

temp[ll=0; 

I ■ strlen(temp)-l; 

/• eliminate trailing *•* •/ 
if(temp[l) — '♦*) 

iemp[l) « 0; 

strcai(temp,'V); 

if(!strcmp (temp,** ♦")) /♦ all don't cares? ♦/ 

temp(l) - 0; 
else 

{ 
strcat(string.temp); 
♦♦count; 

} 

} 

1 - slrlen(siring)-l; 

if(string[l) « V) f eliminate last V •/ 

stringll] - 0; 

if(lcount) /♦ all full or empty */ 

strcpy(string,"l"); 
for(l«strleo(striog);]<ftO;++l) 
siring[l] = * '; 
striog[I]«0; 
printat(22,0,stiing); /♦ show equation */ 



> 



♦♦♦ check if only one bit is sei 



onebit(b) 






int b; 






{ 






retum((b&(~b)) — 
} 


■b); 




/> 






♦♦♦ check if only 


one bit difference 


♦♦♦ between two 


bytes 




V 






onediff(a,b) 






int a.b; 






{ 






int lemp; 






if(onebit(temp = 


a*b)) 




retum(temp); 


/• 


return the l-bit mask V 


relum(O); 







/* 

*** Quine - McCluskey Minimization 

♦/ 

minimizeO 

{ 

char ^changed; 
int savcflt,ncnt.ij; 



savent s 0; 

/♦ Collect only the true terms and translate ♦/ 
for(terms=i=0;i<4;++i) 
for(j-0;j<4;-f-fj) 
if(mat[i][j]) 
{ 
dont[terms] m 0; /• don't care bits •/ 
m[tcrms^+J » order[i][j]; 
} 

/♦ Do until no more possible minimization */ 
do 
{ 
for(uO;i<terms;++i) 

ch»ck«d[i] <- 0; /♦ Chtcked-off airay ♦/ 

for(changed-acDi-i*0;i<cerTns;++i) 
{ 

i* 

♦♦ Compare bite from a bit set group 
*♦ against members from the next group. 
** If Doo't-Carcs match exact and only one 
•• bit is different, add another don't care 
♦♦ and chick both members off as meiged. 
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switch(m[i]) 

{ 
case 0: /* No bits group +/ 
for(j *0 ;j < terras ;++j) 
switch(m[j]) /• 1-bit group ♦/ 

{ 

case 1: 
case 2; 
case 4: 
case 8: 
ir(dont[i]»dont[j]) 
if(l-oncdiff(mIi],m[j})) 

( 

chackedfi) - 
checkedtj] o 
changed 

newd[ncnt] - dont[j] | t; 
ncw[ncnl++] ■ m[jj & ~t; 
} 
1 

break; 
case 1: 

case 2: 
case 4: 
case 8: 

foi(j-0;j<ienro ;++j) 

swicch(m[jj) /♦ 2-bit group ♦/ 

{ 

case 3: 
case 5: 
case 6: 
case 9: 
case 10: 
case 12: 

if(dont(i]-»doni[j]) 
if(Uonediff(m[i).m[j])) 

{ 

chccked[i] - 

checkcd[j] - 

changed 

newd(ncnt) - doot[j) 1 t; 

new[ncnl ♦♦] * m[j]&~t; 
} 



'• 1 -bit group ♦/ 



J 
break; 
case 3: 
case 5: 
case 6: 
case 9: 
case 10: 
case 12: 

for(j -0 y < terms ;++j) 



/♦ 2-bit group ♦/ 



switch(m[jj) /• 3-bit group */ 

{ 

case 7: 
case 11: 
case 13: 
case 14: 

if(dont[iJ— dont(j]) 
ir(t-onediff(m[i]»m(j])) 

{ 

checked! i] - 

checked(j) - 

changed = 

newd(ncnt) - dont[jl 1 t; 

new[ncnt++) - m(jj & "t; 
} 

} 

break; 
case 7: /♦ 3-bit group •/ 

case 11: 
case 13: 
case 14: 

for(jttOj<lcnns;++j) 
if(m[j) « 15) /• 4-bit group •/ 
if(dont[i]--dont[j]) 
if(l-oncdirf(m{i] f m[j|)) 

{ 

checkedj i] - 
checked[j) * 
changed ■ 
newd(ncnl] - donljjj | l; 
ncwJncnu+1 - m(j] & -t; 
} 
} 
} 
for(i«0;i<tcrras;++i) /♦ keep unchecked terras ♦/ 

if(!chcckcdji)) 

{ 
savcd[l][savcnt] - dont[i]; 
saved[0](savcnt++] - m(i); 

} 
/♦ Remove duplicates •/ 
for(i-0p<ncnl- 1 ;++i) 

for(j*i+ 1 j<ncnt;++j) 
if(ncw[il«ncw[j] && ocwdfij-- ncwd[jj) 

( 

new[j) - DELETE; 
changed o I; 

} 

/♦ copy ncw[] back into ml) ♦/ 
for(terrru-i-0;i<ncnt;++i) 
if(new[i]!« DELETE) 

{ 
m[lcrras]~new[i); 
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dont[terms++]-newd[i); 
} 
} 
while(ehangad); 

/• pick up savad terms */ 
foi{i-0;i<savcnt;++i) 

{ 

m[lcrms) - saved[0][i]; 
dontl terms ++] - saved[l)[i]; 

} 



/••••♦•••••••• ••••••••••••- 

• 

• Special I/O interface with FLEX for 

• use with Heathkit HI 9 Terminal* 

• These routines interface directly with 

• FLEX's input/output to avoid echo and 

• system overhead. 



struct flexio { 

int (• inchne)(); 
int (♦ ihndlr)(); 
int (• swivec)0; 
int (♦ irqvec)(); 
int (• tmofl)0; 
int (• tmon)0; 
int (• Unint)(); 
int (• monitr)(); 
int (• tinil)(); 
int (• stat)(); 
int (• outch)0; 
int (• inch)(); 

}; 

struct flexio *iop - 0xd3e5; 

/• 

♦•• geticcy and outchar 



Input no echo •/ 



•/ 

•/ 
•I 



/♦ Int Handler ' 
/• Swi vector 
/• Irq vector 
/• Timer off 
/• Timer on 
/• Timer init 
/• Monitor address •/ 
/♦ Terminal init •/ 
/• Input status •/ 
/• Output char •/ 
/• Input w/echo •/ 



/♦ I/O Table Pointer ♦/ 



NOTE: These routines are dependent on INTROL-C 
Version 1.6 in that the D register is used 
as the first parameter of a fund on and 
D-registcr is returned as the integer 
result of a function. Check other 6809 C 
compilers or use '#asm* constructs for these 
two routines. 



geikeyO /• return parity stripped A-register •/ 

i 

retura((( # iop->inchne)()»8)A0x7I); 

\ 
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outchar(c) 
int c; 

{ 
(• iop->outch)(c«8); /• Output A-register •/ 

} 



/• 



move(y.x); 



* valine * (0 23) 

• x-column * (0-79) 
•/ 

move(y.x) 
unsigned y,x; 

{ 

outsC'vanY"); 
outchar(y+32); 
outchar(x+32); 

) 



••* Erase screen 

•/ 

craseO 

{ 
outs0033E*); 

) 



♦♦• piinlat ~ 

•/ 

printat(y,x,s) 
int y,x; 
char *s; 

{ 



movc(y p x); 

outs(s); 

move(y t x); 



/• 

•••• output a string 

•/ 

outs(s) 

char *s; 

{ 

while('s) 
oulchar(*s++); 
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{By: All of us. 



D 



The Editor, 

Computer Publishing Center, 

68 Micro Journal, 

5900 Cassandra Smith, 

P.O. Box 8*19, 

Hlxson, TN 37343, 

U.S.A. 

Dear Don, 



Chemistry Department 

University of Transkei 

Private Bag X5092 

UHTATA 

Republic of Transkel 

Southern Africa 



Thank you very much for publishing ray two 
programs, GENPL9 and FItECOHP, as well as ray letter. I 
have enjoyed the single-board computer reviews very 
much. I hope any readers who build these systems will 
write in with their experiences, suggestions and add- 
ons* What has happened to the Artisan SBC? 

I an submitting two programs for publication. 

Program RENUMBER, BAS: 

Although the TSC utility RENUHBER.CMD is 
pretty good for renumbering TSC Basic programs, it does 
have its limitations. Firstly, it falls to handle ERL= 
statements. It is frustrating to have to manually 
renumber ERL assignments and it is also very easy to 
make mistakes! Secondly, it does not allow partial 
renumbering of program segments, a useful feature to 
facilitate breaking up a program into logical blocks, or 
to move a block elsewhere. 

To get around these problems I decided to 
write my own RENUIIBEfllng routine. I wrote the program 
in TSC XBASIC to get the logic right, meaning to 
translate it into assembler later, but as it turned out 
to be fast enough for most needs and easy to modify, I 
left it in Basic. It is a disk-to-disk utility. That 
means that it reads a Basic file from disk and writes 
the output (optionally) to disk, whereas the TSC 
Renumber works on a Basic program in memory. 

The program has several options: (a) renumber 
the whole program; (t>) renumber only parts of the 
program; (c) renumber, using new parameters from a disk 
file Instead of having to type them in. The last 
feature is especially useful with long programs, as it 
is much easier to use a word-processor to create the 
table of numbers, and the table can be easily edited if 
the output is not satisfactory. Any fatal overlap is 
optionally reported, as are missing target lines (e.g.: 
'GOTO 800' withuut a line 600). 

Output can be directed to the terminal, a 
printer or a disk file. 

Program DATTR.CMD: 

In one of your recent Issues a contributor 
published a neat little program for setting or clearing 
the file protection codes of a Flex disk, which gave me 
the solution to one problem I had. I do a lot of 
correspondence, both for the Department and for myself, 
and I keep a disk just for these letters. The problem 
is, how to mark the file directory so that I can tell, 



from its listing, which letters have been replied to and 
which replies are pending. The solution was to CATalog 
protect all files that have been replied to, so that by 
running a DIR all the files with '€' in the protection 
codes where clearly demarcated. I then modified TSC's 
DIR command so that CATalog protected files do not 
appear in the listing, and things were even easier. 
(Note CAT.CMD does this but does not display the date 
when the file was created, so is not as useful for this 
particular purpose). 

I then set about writing a program that would 
set any combination of the protection codes, or clearing 
the lot, using the idea from that published listing. 
The program DATTR.CMD does just that. It has a few 
useful features: (a) it functions just like DIR.CHD, in 
that any files that match the given specifications In 
the command line are processed; (b) a wild card 
character can also be used (wilds?), as many times as 
required; (c) a HELP screen explains all the options if 
the cocnand DATTR is used without any parameters; (d) an 
automatic repeat is available, otherwise a prompt is 
given for each file; (e) existing protection codes can 
be optionally retained, with the new ones added in; (f) 
at any time the process can be aborted, with a return to 
Flex, using 'Q' as a response to the prompt, or the 
ESCape key In auto mode. 

I hope you will find these two programs up to 
standard and that other readers will find the programs 
per se, or at least the ideas behind them, useful. If 
anyone does not feel like typing out the listings of 
these or any other programs of mine that have been 
published, I can supply the source on 5" Flex9 disks If 
they send me $15 to cover the cost of the disk and 
postage. Please specify format (SSSD, DSDD, no. of 
tracks, etc .) . 

This is going to be a long letter. Since you 
like to receive the material on disk, what with the 
expense Involved, I tend to accumulate things to say 
before I go ahead and write the whole lot. Please feel 
free to edit this letter anyway you like, or publish It 
in parts. 

Since my last communication with you I 
received a letter from Microflex in Quebec In response 
to my letter in 68 Micro (Dec 1984, page 49) from 
someone who knows what happened to the DP09. Apparently 
the owner of Artisan Systems (Hike Kelly) has 
discontinued doing business wltn the DP09, which Is a 
sharae as the product looked really super from the 
advertisement and data sheets I was sent. It's all very 
true what you say, Don, that It's risky doing business 
with a company that may not be around for long, but how 
Is one to know that. If everybody waited say a year 
before buying from XYZ, while company XYZ advertised In 
68 HJ, by that time the company would be bust. 

Recently I sent you a couple of programs one 
of which was a more elaborate version of the one 
submitted by Joseph Aullclno In June 1984, < thank you 
Joseph for the idea), which set/cleared the disk-file 
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protection bits in the Flex directory. In his article 
he mentioned a patch to Flex to make the FH5 function 18 
work. At that time I i*»ed lately made the correction to 
the FLEX. SYS on ray current System disk and left It at 
that. It's Interesting to note that I had never noticed 
that bug earlier, since I always seem to have used 
functions 19 and #10 to manipulate the directory. 
Anyway my program DATTR.CHD worked fine. Then in July 
this year one of my ^0-track drives broke down. The 
only working spare drive I had was 80-track so I 
installed it as drive t\, leaving the other 10-track 
drive as 10. Now I had to use SYSGEN.CMD In order to 
have the proper drive control block* set up for one 80- 
track drive, with a 3 ras step rate. To do this I got 
out ray backup master disk and reconfigured the FLEX from 
the original supplied with my liiraix. 

Everything worked fine until I went to use 
D&TTR.CND on my correspondence disk. The program Just 
would not step to the next directory entry! Disaster, I 
thought, t have sent Don a program with a BUG! I got 
out the text file and looked through It but I just 
couldn't figure out where I had made the slip. I, of 
course, had forgotten that Joseph Aullclno's patch had 
not been implemented on the master FLEX copy! I was 
reminded when the program worked perfectly after booting 
the old MO/MO track system disk. So, readers, the patch 
works and Is worth doing. It is aoazing that an old and 
well established product like FLEX still has bugs in ltl 

Now I couldn't remember which bytes had been 
changed, and which Issue of 68 Micro had the data. I 
looked through ell the old journals (3 years 1 worth) 
several times, except of course the June 1984 copy which 
was sitting on top of the Gimix (courtesy of Murphy's 
Law) 1 Eventuelly I found it but this led me to write 
the program which I had been meaning to code for a long 
Mae, LCOHPARE.CKD , and this Is the reason for all ray 
r amblings above - to tell you that I an sending you this 
program which compares 2 files (any type), byte by byte, 
and displays any differences. 

It makes sense to use the program only when 
small cfianges have been made, such as after using 
FIX.CHD, Sleuth or SAVE.CMD on an ln-raeraory modified 
file. The display halts when a difference is found and 
displays both lines with the differences marked, 
Pressing any key resumes the display, but the 'A' key 
now disables the 'HALT'. Similarly, when 56 lines have 
been displayed, scrolling stops until the user presses a 
key. The 'A r response again disables the page pause. 
The 'LOCUS' Is the byte number of the first byte in that 
line relative to the beginning of the file. If the two 
files get 'out of step* then all the subsequent lines 
will be flagged as different and the r Q r key or KCape 
key will get one out, back to Flex. I am working on a 
binary version which will display the actual load 
addresses. 

By the way. I discovered that the Flex FMS 
function #5 (rewind file) does not honour the space 
compression flag set after the previous OPEN, but It 
must be explicitly recoded after using Rib function #5. 

I an submitting a revised version of the TSC 
ECHO.CHD, called SPECHO. It does not use the routine 
NXTCHR for processing the line buffer so every character 
is faithfully sent to the output path. NXTCHR eats up 
spaces so that multiple spaces look like one space and I 
didn't like the way the old ECHO processed ray Startup 
aessa&es. 



Now for another hopefully useful patch. Hy TSC 
Macro-assembler produces binary output to a file whose 
extension defaults to .BIN unless anotlier extension Is 
actually typed in tlie command line. Now 1 usually want 
to produce .CHD files, so I had a look at the code 
responsible for setting the default extension and I 
Include a patch to reverse this. 

To implement the change, at or around address $0205, 
find the first batch of code below. Note the address of 
the )1F (CLRA) Instruction. 

Hake sure that YOUR •offset, U' is $37. U otherwise change 
that number in ray code to whatever your offset is In 
your version. 

Now there are several ways to make the patch but make 
sure you have a backup copy of the original , just in 
easel 



1. 
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Use FIX.CHU - 

FIX <drlve->ASHB.CHD 

the : prompt will appear. 

Type H 0205 (or whatever address you found for $*JF) 

That address plus the memory contents will be 

displayed. Just type In the new value against each 

location as shown. 



Address 


old 


new 


0205 


*F 


86 


0206 


6D 


02 


0207 


C8 


60 


0208 


37 


C8 


0209 


26 


37 (check If the same 
In your version!) 


020A 


02 


26 


020B 


66 


01 


020C 


02 


«F 



Now press RETURN and then E - job is done. 

Find the transfer addresses with MAP. CHD. 
Assemble a file such as the one below ( a CHANGE TO 
*) with the proper origin, and a transfer address 
(mine Is $0000), I.e. Include the items In 
parentheses but without the parentheses. 
Then append this binary file to a COPY of your 
ASHB.CHD. 



You can do an ln-meraory alteration and then use 
SAVE. CHD, 
H. Use SLEUTH If you have it. 

* ASHPATCH 

• To change TSC Hacro 

■ Assembler's default 

■ binary file output 

« from .BIN to .CI4D 



ORIGINAL HERE "•■ 



0205 

0205 

0205 IF 

0206 6D C8 37 



0209 26 02 
020B 86 02 
020D BD CD33 



ORG 



$0205 



Z0205 

CLRA deflt:.BlN 

TST $3?, U = $FF 

* (check If $xx,U Is the same 
■ In your version!) 

BNE Z020D 

LDA *$02 set .CHD 

Z020D JSR >SETEXT 
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• •••• CHAMUE TO •••* 



020S 

0205 

020S 66 02 

0207 60 C8 37 



020A 26 01 
020C **F 
0200 80 CD 3 3 



{ORG 
(START EQO 

ORG 



0) 



30205 



Z020S 

LDA #102 defltr.CMD 

TST $37, U = $Ff 

• (check If $xx,U is the same 

• in your version!) 

BNE Z0200 

CLRA set .BIN 

Z020D JSR 5SETEXT 

{END START) transfer address 



What I haven 1 t been able to figure out Is: 
under what conditions will $37. U be clear so that a .CMD 
extension is used by the assembler? Any ideas anyone? 

Next, this is for anyone doing stock control in 
a laboratory environment. I have developed a package, 
running under TSC XBASIC precompiler, to keep control of 
chenical stocks, check for low stock, usage of each ite«, 
etc. I know there are a lot of readers who work in 
laboratories so if anyone Is interested in this prograa 
they can write to oe. It's free except for the cost of a 
disk and postage! I raust know the disk formats though, 
and you must have the Extended Basic Precompiler. 

Finally a few bugs and requests. Firstly, has 
anyone implemented a clock/calendar for the Sardis SBC 
such that the Flex DATE prompt can be eliminated? An 
article in 68 HJ would be nice on this topic. 

Secondly, I have a second-hand CT-30 cassette interface 
but no documentation or schematics. IT anyone can help 
I'll gladly refund postage and copying costs. Thirdly, 
(this is for those with the TSC Flex Diagnostics package), 
I have noticed that if I use VALIDATE. CUD soon after a 
fresh boot the program works perfectly, but after Flex 
has bten used a lot without re-booting, the program 
aborts immediately with a string of messages such as: 



ADDRESS: 000S, CftC ERROR 

ADDRESS: 0005, CRC ERROR 

KILE CONFLICT: DIRECTOR V /DIRECTORY 

FILE CONFLICT: F&EE CHAIN/FREE CHAW 

DISK ERROR #9 

After this the system is dead and requires a reboot. 
Anybody figure out the cause of all this? 

Has anyone ever got printer-spooling working under Flex 
on a Clmix? I would be obliged for details as I have not 
been successful . 

I have found a couple of bugs in my version of Stylograph. 
The first involves the Mlnd-and-replace' function. Say one 
wants to change the number 33^ to H3H anJ uses the 
'replace 3 with T method. After Stylo has successfully 
changed the first '3 1 and prompts for the second one, if 
the response Is no. It Just keeps doggedly on that very 
same character wanting to replace it. Try it. This may 
seem a trivial example but it becomes a nuisance when 
renumbering part a Basic program by hand. 

The second bug involves printer codes. Assume that 
V is the printer code delimiter. Then sending the 
following text to my Prowriter turns out as shown: 



(original)=The bug in Stylo\27,33N here 

(printout)sThe bug in Stylo re 

It seems to 'eat 1 the one or two characters following the 

delimiter! Putting a ghost hyphen between the delimiter 

and the following text solves the problem, but it is still 

a nuisance. Has anyone else seen these bugs? 

Sorry Don that this has turned out to be such 
a long letter. I think there are a lot of new Flex users 
out there who may be happier with detailed procedures. I 
know that when I first started I really did need that 
kind of help. However if you think that the explanations 
for using FIX. etc., are unnecessary then take them out. 
That's what word processors are for anyway. 



Yours faithfully, 
Peter 

(Dr L. Placenta) 

Editor's Note: Peter, don't fret about the long letter, 
we thrive on such as this. Your willingness to share and 
contend with the problems we have had with the postal 
services either here or there, has been a real deamon. 
Thankfully we now have It all under control and I and 
thousands of reader/users thank you for sharing your 
efforts and "sweat of the brow". Thanks Peter!!!!! 

To ay reader: Dr. Piacenza has also submitted sane 
very nice utilities to S.E. Media for resale. These are 
now being "beta tested" and hopefully available soon. It 
Is acknowledged that these "freebe" programs, presented 
here, could have also been included in the sale package. 
But he kindly offered them as articles - to share with all 
of us. I guess that is what we have really been all 
about these years past. Thanks to all of you, we are 
surviving* So to you Peter and all those others, from all 
of us, to all of you, THANKS also!! 

DHW 



11)00 RfcX Kt'Jlftm* UN DISK - hy LR ftJCItn**. 

U)2U Kr>f VI 1 i r«nu»b«r m l»AS \C nroCr** 04 <Ji*V. to 

■MiV/tcrnln«l/r>rlfH«r. 
10*0 RP» e«|>aMc of f •rnj-iNartnf the vholr Pro«rA*. Or »*J«CC«d 

lUfcU HEN 

Minn If, 1 |HM4T*MT - iiiutii each Llit nnmb*t It feJ |a**rt fc> m 

i loo tin 

• *** fHI».«*l,l4 ***** ****************************** if ****** 

J IIP 5SI-MKI* Ain4tl ftf allow* iiib-tfflloni. 

1140 DM Ml ( 70*0), K3( ?000) : lOi D I ►>-*<>. of Pro(r«a tine*. 

IIAO MM »rt(IOO) I Kt» *FX-ltn« f*(oranc«* not found. 

1IK> DIm m<l*t).LTT(A$l):KP* whor« <o «*rc. wNtr. Co e*4 f*r 

block. 

Iff*) pi* X$*("t>.tO(»M>:KC» "•* stare, n*w l«xt*^.t ft block. 

1220 «£* 

12*0 P5$-'IU*1*»t» (ftwnft p«r»(1l»d -" 

I 2M> IN*)T - m«ri«B# Co b* r«m*t»r«d (d*t*uli* to .*A$) ",r$ 

1280 US •r»:COsUl W7/0:FS-U* 

1300 PRltfr i Ou<r*»t lo T(arainal). p(riptct) or (Hi**,) "; 

1270 O0SI/I 4760 OUS*CAS 

1340 «>:-0:ir OUWf" TKtW 0l»U -O.rHtlt.SYS* AS 

1 W> IW OU*0*D* THE* 1440 

13S0 OMl-ittw\njT Output rtltniM *,JV> 

1400 ttl-rwSrCOSUI J920:r\4S«ZZS 

t420 r>rtn «w fvl AS 2 

UtO OP£K olu rS AS i 

I4M *J* 

UtO *V* 0<y*i>t* din. and •*<- for r«riu*t*rlM "bolt pro<r*«. 
1JO0 tC*\ IX-I TO i',l!$TTtlX)-Q:tn(IX)-3?76? NtXT II 
l>20 LFX-0 
IS*0 Si- 1 

IMO HUH 

1)00 HUWT-Plaruobtr I *• VUOLl prograa <W*)T ": ;C0SU> 4760:l*W$*<Al 

1600 IP ^JOX tMCH 1780 

1620 NLMT-JUlar data from * 6\** til* (1/**)? ": :COSUt 47M;01**CA$ 

164Q ir or**"* - rnr> tosva * boo i corn itoo 
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1660 lex ■■•• 

J MO PR[N7Tor «tcK bl^ck to b* r«n u a>\*rca. aniaf lh* raQuaittd 

Information" 

1700 ir SX>ISX TIIZ4 PRlrfT:PRl« BSSjISXrCtiTO 1900 

1)20 PElpTil^rirr'Eniaf .<TAKTLI»C And t*DIJJC nunbfti (jj.T) '.iTS.lTS 

1740 STX<SX)**AUSTS):CTXCSX)-VaUCT») 

(760 IF CTttSlKSTKSXj TttUT 1)10 

17*0 l>ftT-EAC«r Mv Bunkct. |aertn»«( *.*NS.ICS 

1600 *Sl(XJ)-VAL<HX»>: ICX(S2) -VAL<ICS ) 

1420 IP UN SO" IT THE* 1900 

1*40 >»F.lriT~Kora ««**•«(• to »nui»htf* (t/70 "; :C0SIB 4?A.0;|fS<AS 

1060 KRtfCTr IK lirj«"Tf TVE* SX»St. l:G0IO 1700 

ie«o tx* •*»* ♦••••• 

1900 r-iiKT 

1 920 on cnwx com 1*00 

1940 PRINT fO.SfC* lS>;"ftnii«bar of pro«r«3 -;P$:PPlnT #0 
I960 FJ* CYl-1 TO SX 

ivao mM « rt < - siAniri* r<©« im D *tJrtfcYs>; 

2000 t»K**T ru.TAP<40);*t«<ilnK at 1 l<i« *:£n(CVt) 

202«i PKirn- «■.$»«( 7). 

20*0 PHI*T *0."i)«C« atari - b ;nS2(CYZ).T4»( 40) :'*••• Li>crc«**t • 
*: IC.fCYl) 
20*0 HtlT CYI 
2080 FKlUT 10 

2700 *L1 •• 

2(20 IP «H$0"»" A*D OFJO-T" THE* 7700 

2140 V*IATCn«ck for «v«rlip r Uj blockf (Y/K)* *J 

7)60 U»WI 47fcO:OVJ,-CAS:FxlhT 

2180 BK* 

?20t IX-l 

7220 PRIKT Sen If R up OLD .NUMBER/ M» MMEE* labia. " 

7.240 IKPUr tlNt JI.A) 

724C JlX(IZ)-VAL<L(rTS(AS.IHSTK(l.AS 4 * *))) 

7760 FOB JSE*1 TO SI 

7)00 ita»issi(j$2)-ia(j$2) 

2120 IP flX(IZ)<STX(JSZ) TNCa «XT JSXsCDTO 2320 

2310 IP ttt(IX)>f:TX(JSX) THE* HEAT JSIiCOTO 2320 

2360 R£W r*il CNrovAh vlttn Uit< *uo U l« aalaettd block. 

23t*> NXUX J-ICCUICZUJX) 

24O0 Ha-Vt(JZ) 

2420 KSt(JM)-lfI(IX)*tCZ(JSI) 

2U0 IX-lX»l 

2440 0010 2240 

2480 UM 

7300 REM jump >«r« whan liha nua not la ttlatlfd block* 

2320 HH<1Z)»*ZCU) 
7340 IX-lX*l 
2S60 C070 24&0 

2300 RJ* 

2609 CtOJC I 

2670 m-IX-l:Vill.-t 

2640 REM c«t>ll« nady. 

2660 IF OVS-nT T«* COXUl 4600 

2640 IK 0»*O-)C* THE* 2760 

2 700 PltKT'Abort or Carrp on Jnyv« r (A/«C) ~::C03CI 
U60:0*$-CAS:Pllir7 

2720 IP 0v3«-4" WX (NO 

2740 KKM • • 

2760 ON I.RROR COTO )fl*0 
2760 OPEN OLD P$ AS 1 
1*00 FOR IX. I TO TTX 

7020 m — 

2B40 IHPVT LIKE If ,4.1 

2660 ItCM cninE* [N Una m»»*r 

2R40 Aj-N|0S(STKS(X*(m>.2.LEjll(STXSUX(lX)))- 

2)*f1IOJ(AS,lKSTK-<I.AS.* ")) 

2900 BR* v*«o» ««rb». 

2920 YX-i 

2940 is- OS :XX.|*$Ti(TX.A$.XS): IP XtOO THE* QX*0:COS06 4020 

2960 x**-cmer icoum 3370 

2960 *S**COSUi-ruOSllft 3320 

3000 *S«*fHEjr;COSU» 3320 

3020 X$-'HUE":GOSlJB 3320 

3O»0 Xl»"BF«*E-:COSUB 1J20 

3060 X5*-Rt*TUJcE*:tt*50B 3i70 

)0M0 XX.I*srn!I.AS."CKL->:ir XX*0 TMK6 3140 

3100 E2.IMS?KxX.A3»~«~):!r XA"HJ THtK Jl*0 

il20 l$*KJDS(A$.Xt<Zl-XX.>l>: OSOU ))70 

3140 r-MixT 'uu,a»;k*S 
316(1 ^:^r u 

3IHO M»^ 

3200 CLOSE It IP OUXOO T\*t* ZWSl OtfZ 

3220 COSOB 4420 

3240 tK» 

3760 WJH »L\ 4o«*t 

3260 PW •• 

330O REM rind «cceer %>arba. 

3320 YX«I 



3)40 XX-IK6Tlt(YX,AS.X$):ir XX-0 7MEK tlTUKX 

3360 ZX-XZ.Uft(XS):rX.XX*] 

3300 CX^XX 

3400 LC2-VAL(?1t0S(AS.cx)):lP LU-0 THXt 3340 

3420 LLS.STPCS(llX):LLJ<llD3(LLt.2,LE3r(LLJ3.2) 

3440 ZX-CXoUKUS) 

3460 COSOl 4 220 

3400 OOSUI 3620 

3XM IP ZTX*0 J*t9 COSOB 4)70 COTO 3340 

3320 M«3-- %Kl0f(SriS(aX(ZJX)),2.UI«(ST8S(PlX(XJt)))^2) 

3340 AS«LCK7$(Af,XZ-l).I*»»KS«<il0S(A$,2X3 

3360 COTO 3340 

3J00 HP* 

3600 SIX BINARY SEARCH Of NlffKt TAlU. 

3620 2OZ.TTX^Ii2LX*OXJX-X0X 

3640 KK Z2X-0 TO I S7XP 

3660 ICl-ZJt 

3680 ZJl-ItrT<(XVl»2U>/2> 

)700 If UWa THEN 2fX-0tMIVM 

3770 [P UXOiX(XJX) TKKN ZUt.XJt^MUCT 22X 

3740 IP U2-MX<ZJX) TllXV* 2PX*t:XETVXN 

)760 XLX.2JX:M«T XXX 

3780 U» 

3800 IP tlK.I TKM USIOS 2600 
3820 ON CJUlOt OOtO 
3640 IP PRt.8 TXCK RlSVit )200 
)B60 OM EKMOR COTO 

3680 t£>» 

3900 ICI1 Apovnd -IAS «xt*fiBl«n If MCfiu^. 
3920 XX4ljaTX<l.ft(C1lTS<X23.4).-.-) 
>«40 IF I|(>0 TMU K/.TU8H 
31*0 lit -Sit* .R*S KETUtM 

3180 ItEH 

4000 it« frOCOl* CASE (ON v«r6). * 

4070 QX-QX.lt|P Ql>-L«*f(Aj) THtK BITUB»r 

4040 IP KID5(AS.0X. DO - ." TKEM 4020 

4060 lU.VAL4n|0S(AS.QZ.l)):|P LU*0 T«# 4020 

4080 OOSUB 3620 

4100 If ZFX«0 1*tM COSUB 4370*0070 4020 

4 120 2X.QX*l:COSlJB 42?0t»*S-" 

* *H I DS<STKS(»XUJX) J . 2 . llH( STRSC"X(XJX)))-2 ) 

4 140 AS.UKTSCAJ.0X).K>l$..ilOS(AS l XX) 

4 160 COTO 4070 

4180 »E* find luN v«cior n««B6«r. l.klpplnt lf«dli< «#■«■«, 

4200 |» 

4220 U .iit-S(AJ,n, IJ-- " t«M?( Xt.XXti:GOTH 4720 

4240 tl NtOS(AS,2X, {)>•-&• AKH H]D$(A».ZX ,1 )<-* 9" THRJf n -Z X * i ; COTO 

4 240 

4*60 RETVRX 

4280 HPi-1 ■•" 

4 300 IEH Jtnt r«f«rtacta nal feuntf 

4320 LrX-LTX.l 

4340 «>t(LFX)-LLX ; KS«" : R€N?7??- 
4360 MTV** 

43«> R|^ - 

44UO BE71 print all Itn* ra lar«JK«* »ot found. 

4420 IK LTX*0 TMCJl BCTU1U £ut( PtlifT 

4440 PRI4T"t7»a llntt roll«v«d by *: «£.1???*» WN aoc it»»4 .' 

4460 PJtTKT-Tabt* or Ilatt not royn8;":P« l*T 

4480 rOX I X.I TO LP! 

4 300 PK1M Mf'X(IX) 

4 320 KKXT IX 

4 340 XETlfR* 

4360 U3i 

4VtO BGH chatk r*f (»%•% o*trl4p. 

4600 P08 [Z«2 TO TTX 

4620 P0« tX«2 TO TTX 

4640 IP fcXUX)<«tfX(IZ-l) THEN OOSUB 4^00 

4 660 KEXT IX 

4 680 HCTWlB 

4700 PRl.fT »0. "P#Bl ovarl.p at llaa«: *;Mt(lt*J );*- # ;M|( IX) 

4 720 OVJ.-X- :X£TV«Jl 

4740 XX71 

4760 CAS*CHKS(ASC<t}O«5<0)) ANO f3);PR2lilTi«CTORN 

4780 *£M tnpvt fro- a dlfk flla. 

4800 PRIKT.-PRlfcTTn* *"• (U* 'oroat awai oai" 

4820 PRlnT-ScartUB Um numUr, tndln< 11m aia^or - 

4840 PftlBT'**** atAftlAg nt^c, ln«ra««OC* 

4860 rJUtfT:PKtirr-Fll« POWAT okay? •; :OOJUl 4760 

4680 THS-CAScIP PKlOT" tHM EPO 

4900 WMS--Y" 

4920 fI|WT:|NPVr»Jaa* of flla with valval " ,T S 

4«40 OH ERROR CCTt) 5100 

4960 OKV 0U> PV| AS 3 

4980 1HPU7 #3 < STX{SX).ETt(SX3JRC« ScaniaJt tl<«a #u<ibor. CodU| lloo 

•unbar 

3000 INPUT #).4^Z<SX).IC2(SZ3:RIN %w ictrtlnR ■— t^r. IficriaanC 

3020 SZ.SX+l:ir SZ>BSX nt£R PAINT 8SS;lSX:COTO 3060 

3040 COTO 4960 

3040 CLOSE 3 : SI*ll- I : PI ( HT : RETWtB 

3080 tE^l 

3100 If ERA«8 TMU IU4JRE 5060 
3120 OK ERIOB OTO 



To Be Continued Nex! Month 
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EDITORIAL CONTACT: 
Ed Prestwood 
{602)952-3610 
fOBOxM.-u phoenix, ARi2« k .A 65036 READER CONTACT: 

Microsystems Marketing 
(602) 438-3501 
NEW MC68020 VME BOARD 
OFFERS HIGH PERFORMANCE 
AT UNUSUALLY LOW COST 

PHOENIX, AZ MAY 13, 1986 ... Motorola has Introduced a 32 bit 
VMEbus compatible microcomputer board establishing a new price 
point less than $2,000 for high-performance board-level applications. 
This board, Model MVME133, Incorporates a 12.5 MHz MC68020 MRU 
with a companion Moating point math coprocessor, plus a full one 
megabyte DRAM array. Also available, Is a 16.67 MHz version — the 
MVME133 1 The MVME133 responds to increasing customer demand 
for a high-performance processing engine for cost-sensitive embedded 
controller applications in robotics, machine control, and numerical 
control 

jAicnmucs 



Microcomputer* > Hardware and Sofi**/e 
GIM1X • Sain. Service and Suppwr 

Dear Dot, 



IE5F <aK H CORP 

33383 LYNN AVENUE. 
ABBOTSFORD, 
BRITISH COLUMBIA. 
CANADA. V2S IE2 



I notice that ay subscription is due to ran ouc io 
another sooth, so I'a rushing this letter s little 
sooner than I ioteoded, to reaev for another 2 yeara. 
Wouldn't waot to aisa so issue I 

low for s little more io the contiouing eaga of 
I BASIC, rirat off* I'd like to expand a little on the 
short Decimal-to-HEX routine pebliehed in the Kay 
ieaue. Did anyooe notice that the self-same program 
can he ussd to convert from decimal to smTj base in the 
renge 2 thrw 631 Though there'll be some pretty 
weird-looking digits beyond base 2711 All yon have to 
dn is to chsnge the two occurrences of '14' ia Line 30 
to the desired base-number. Of course, if eke anmiammi 
beae~number never exceeda 10, yoe voo't need the piece 
which adjuats by 7 fer digits is excesa of 9. Or* to 
really round off the program, change Line 10 to read 

10 ■$-"": IPJPUT "Enter deciael-oumber snd base*,*, ft* 

end chsnge '16' to 'ftX' in Line 30. 

It night be s good ides while I'm oo the subject to 
givs the reverse progrsm, tbst is, to coovert from any 
base to decimal, sn here goes with s quickie. 

10 D-0: IIFuT "Enter number sod baae*,N$,BZ 

20 tOl COimT NUMBEB-STRIIC II AJT BASE TO A DECIMAL 

30 Jl-LEB(»$): FOR 12-1 TO JX 

40 IX-ASC<*XD$(N$,lX,l)-48: IF X2>9 t*tt KX-CX-7 

50 D-DtKZ: IF IXOJX THE! D-D+BX 

60 1-EXT IX 

70 FIIVT D: GOTO 10 



Using logic fuoctions instead of 
could be re-written so | 



IF 



THE!'', Linn 40 



40 n-AfiC(KXII$(l$,IX s l)-48«7*<IX>f) 



late that I uss 4-7 this cine because I wsnt te 
•attract 7 if (XX>9) is true, ie it become* -1. See 
if you cso similerly compress Line 30 uaina; the same 
technique, sod then combine 40 and 50 into one lioe. 
Before I lesve this aobject altogether, it aigbt be 
worth aeotiooing that to convert from Baae 1 to Eeae 2 
(aod get tbe Decimal equivaleot along the way) the two 
programa ahould be chained. That ia, convert from 
Baae 1 to decimal, aod then atraight oo to coovert 
decimal to Baae 2. 

You'll find that routioea which uae power-functions 
like s~b to achieve baae-conversions are apt to get a 
little unreliable, at they use logs aod antiloga in 
their calculatiooa. 

OK, eoough of that. Let' a move oo to another area 
that seems to puttie s few people, snd tbst ia wheo to 
use ASC, VAL, CHRS or STR$. The definitions given in 
the XBASIC Manual really only have meaoiog for aomeooe 
who already uoderstaoda them, ao a little explanatioo 
ia probably in order here. He'll consider them aa 2 
aeta of twina - one pair being ASC and CHRS, aod tbe 
other VAL and STRS. 

ASC(IS) will return tbe deciaal ASCII value (not HEX) 
• f the first character in If, io if I$»"Hello* then 
ASC(l*)-?2 (the ASCII value of 'H* ) . But if coupled 
with the use of KIDS, aa in my example program above, 
or S1CBT5, it can be uaed to give the decimal 
equivalent of amy single character in tbe atriog, Thua 
ASC(RIGBT$(1$,1))-111 which ia the deciaal ASCII value 
of "o". CHRS(IX) ia tbe exact opposite, io that it 
geoerates the ASCII character equivalent of IX, so 
that CHR$(72), if outputted to tbe screen would 
displsy 'H', while CHRS(lll) would diaplay 'o'. But 
keep ia mind that tbeae two cao baodle only one 
character at a time. 

VAL snd $TR$, on the other bsod , cso cope with multi- 
chsrscter strings. But, sod s big but, tbey desl only 
with numeric strings. So, with I$~"Hello" snd 
J$- B 123.r, VAL(l$)-0 becsuse 'Hello' ia oot s decimsl 
number, but VAL( J$)-123 .4. Similarly, given 1-123.4, 
then STR$(1)-°123.4". Big dealt, you aay. So what 
purpoae do they serve if they can only baodle decimal 
oumbera , and apparently lesve theae numbera unchaogedt 

Perbapa the best way to look st theae is to imagine 
tbst VAL ia a aachine capable of transforming a 
alctera of aometbiog into the real thing, while STRS 
ia an instant camera. So, if we bad a abort-tailed, 
black-spotted dog from which we wiahed to produce a 
loog-tailed, tebra-striped pup, we would first of all 
take a picture of the original, then touch up the 
photograph appropriately, and f ioally use our VAL- 
aachine to produce the deaired animal. 

In tbe same way, we would uae STR$(I) to maoipulate 
*\* in ways that would be difficult, if not 
impossible, to do directly on 'I'. For example : 

10 1-123.45: FRIHT M You have S'M 



RUHning this program would produce 'Ynu have S 123.45' 
with a apace betweeo the *V sign snd the *\* , where 
an imaginary '♦' aign reaidea. Here we have a problem 



43 



August 86 



'68' Micro Journal 



SOMKIIIINC; I OK AM, Ol IS / KKOM ALL OK IS 



if we vine to produce '$123.45' fro* ' S 123.45'. Hold 
oo though. Bere comet SUPtRSTRS to the rescue, tod we 
don't even need VAL. Ve re-vrite thus : 

10 1-123.45: PRINT "You have 5 W ;KID5(STRS( I) ,2) 

What we've done here ia to convert ' I " to STRS(I) 
(that it, we've changed 123.45 into a atring nf ASCII 
character! correapondiog to the individual digita of 
I), and then used KIDS to print out theae character* , 
coaaencing at Character-2 io order to skip the 
inagiuary '♦' , 

Or, to denonatrate ao even trickier exaaple, auppoae 
we wished to reverae the order of the digita - no 
aatter what the length of the number. Ve would write 
aooethiog like : 

10 ■*$•"*': IKFUT I: 1$-STR$(I) 

20 FOR JX-2 TO LEN(I$) 

30 J$-HlD$(I$.JX,lUJ$: HEXT JZ : I-VAL(JS) 

40 PRINT J$.I: COM 10 

Line 20 begina looping at a count of 2 to akip the 
imaginary '♦' aign, and I guesa Line 40 would give a 
little cause for puzzleneot, as it haa apparently 
printed tbe aane number twice. But don't forget that 
JS ia a picture-of-the-ounber, while 'V ia tbe actual 
nuaber itself. Just at your reflection in a airror 
(ignoring left-to-right reveraal) may look, like you, 
but it"t not really you - only «n iaage. You can do 
arithmetic with I, but not with 1$. 

VAL coaea into its own in XBA$IC program* which 
require ouaeric reapooaea froa tbe operator* How aooy 
tiaet have you accidentally hit a letter (for exaaple, 
the letter '0' instead of the digit '0'), and had your 
prograa bomb with a 'Hixed Mode* error-aeisage? Why 
not try aooethiog like : 

10 INPUT "Eater a nuaber ,., ",1$: I-VAL(IS) 
20 IF 1-0 T*EK PRINT "Invalid entry!": GOTO 10 

Thia way, your prograa won't boab ( aa an errooeoua 
non-numeric entry will now produce a VAL of '0'. But 
what if "0' alao happtoa to be a desired reapooae? We 
won't want to keep bouncing hack to Line 10 in that 
caie! Tbe aolutioo ia simply to ioaert a Line 15 : 

15 IP I$-"0 n GOTO 30 

There's only one slight complication here, and that 
occurs should you enter ssy 12H45 instesd of 12345 (ao 
msybe you've bsd just one teessy drink too maoyf). 
VAL(12H45) comes out ss 12, ss the conversion stops if 
s chsrscter is not a digit, a '+' or a '-' or a 
decimal-point. I'll leave you to ponder how to 
distinguish between sucb so erroneous '12' sod s 
genuine entry of '12' (or soy similsr coabiostioo) 
until my next letter. 

And thst shout wrsps it up for thia time. Keep those 
letters s-coming, though I cso't gusrsntee s reply to 
each sod every one. 



Don Wi tliaas , 

6B Micro Journal, 

5900 CsBsandra Smith Rosd, 

Bixsoo, TN 37343 



Sincerely, 

R» Jones 
Preaideot 



1206 'ft Grant 

6&rv»::is ^ 97?3o 

May tt. aS86 

68* Micro Journal 

5^30 Cassandra Sin lth Rd. 

Hi * son In >7><i> 

Dear Don, 

i*q> slitting some 6809 printer driver listings «nicri rnig^t oe 
useful. Tt»e t*o snort ones are a "matched set- of restaent ftCIft 
and Plft drivers. Eac^ fits In the fie* resident arfnter driver 
area, but still provides ail rour standard entry points* Both 
take their port adflress Tro* ptd£v (K09). 

Tne longer listing implements an irq-dri*en printer (ACIA) witn a 
circular queue. If you nave an old, slo* printer and a program 
that uses a fair amount of cpu time deciding «Mt to ?rlnt, this 
can speed up output quit a pit. It needs to be aopcxfco to trie 
nonral p. COR for use, and also requires tne lrn routines provided 
in StfTP versions or Fie*. It can easily be adapted for otner irq 
conventions; anyone i^o needs help should feel free to «rlte. 



Vours truly. 



Wilson N. Feoerici 



Flex ACIA printer driver, 
resident in Flex printer region, 
takes device address from PTDEV, 
provides all four entry points, 
wmf 4/20/86 

Wilson M. Federici 
1208 NW Grant 
Corvallis OR 97330 



CC39 



PTDEV EQU 



* device address, alterable 
CC39 

CC39 F47D 

« 

* $CCC0-CCCF initialize 

CCCO 

CCCO 

CCC2 

CCC6 

ccce 
cccc 



86 03 
A7 9F CC39 
86 15 
A7 9F CC39 
39 



IN1T 



ORG 
FOB 



ORG 
LOA 
5TA 
LOA 
5TA 
RT5 



* SCCD0-CCD7 close 

CCOO 

CCOO 86 00 

CCD2 20 10 CCE4 



* SCCD8-CCE3 
CC08 



CCD8 
CCDA 
CCOE 
CCDF 
CCEO 
CCE1 



34 

A6 9f 

46 

46 

46 

35 



status 

02 
CC39 



* SCCE4-CCF7 
CCE4 



CCE4 
CCE6 
CCE8 
CCEA 
CCED 
CCEF 
* 

0000 



80 

2A 

34 

BE 

A7 01 

35 



82 

output 

F2 CC08 
FC CCE4 
10 
CC39 

90 



ORG 

CLOSE LOA 

BRA 



ORG 
STATUS PSHS 
LOA 
R0RA 
RDRA 
R0RA 
PU.S 



OUTPUT 



ORG 

BSR 

BPL 

PSHS 

L0X 

STA 

PU.S 

END 



SCC39 



PTOEV 
$F470 



$CCC0 

#3 

[PTD6V] 

ni5 

[PTOEV] 



$CC00 

0$OD 

OUTPUT 



SCCD8 

A 

[PTDEV] 



A, PC 



$CCE4 

STATUS 

OUTPUT 

X 

PTDEV 

1 T X 

X,PC 
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Flex PIA printer driver, 
resident in Flex printer region, 
takes device address from PTOEV, 
provides all four entry points, 
wmf 4/20/86 



♦ Mil 


son M. Federici 








* 1208 AM Grant 








* Corvallis OR 9733D 

« 








CC39 






PTOEV 


EQU 


$CC39 


* device address, alterable 






CC39 








ORG 


PTOEV 


CC39 F400 






FOB 


$F400 


* SCCCO-CCCF 


initialize 






CCCO 








ORG 


$CCCO 


CCCO 


80 


IE CCEO 


INIT 


BSR 


GETPRT 


CCC2 


CC 


3AFF 




LOO 


#$3AFF 


CCC5 


A7 01 






STA 


l.x 


CCC7 


E7 84 






STB 


0,X 


CCC9 


C6 


3E 




LOB 


#$3E 


CCCB 


4F 






CLRA 




CCCC 


E7 01 






STB 


l.x 


CCCE 


20 


18 CCE8 




BRA 


0UT1 


* $CCD0-CCD7 close 








CCDO 








ORG 


$CCD0 


CCOO 


86 


00 


CLOSE 


LOA 


#$00 


CCD2 


20 


ID CCE4 




BRA 


OUTPUT 


CC04 


35 


92 


0UT2 


PULS 


A,X,PC 


CCD6 


12 






NOP 




CC07 


12 






NOP 




* $CCOB-CC£3 status 








CCD8 








ORG 


$CC08 


ccoa 


34 


10 


STATUS P 


X 


CCOA 


80 


04 CCEO 




BSR 


GETPRT 


CCDC 


6D 01 






TST 


l.x 


CCOE 


35 


90 




PULS 


X,PC 


CCEO 


BE 


CC39 


GETPRT 


LOX 


PTOEV 


CCE3 


39 






RTS 




* $CCE4-CCF7 output 








CCE4 








ORG 


$CCE4 


CCE4 


80 


F2 CCD8 


BSR 


STATUS 


CCE6 


2A 


FC CCE4 




BPL 


OUTPUT 


CCE8 


34 


12 


0UT1 


PSH5 


A,X 


CCEA 


80 


F4 CCEO 




BSR 


GETPRT 


CCEC 


60 84 






TST 


0,X 


CC£E 


A7 84 






STA 


0,X 


CCFO 


86 


36 




LOA 


#$36 


CCF2 


A7 01 






STA 


l.x 


CCF4 


86 


3E 




LOA 


«$3E 


CCF6 


A7 01 






STA 


l.X 


CCF8 


20 


OA CC04 




BRA 


0UT2 



0000 



END 



IP. SYS 

irq-driven serial printer with buffer 

for use with P. COR 

wmf 2/86 

Wilson M. Federici 
1208 NH Grant 
Corvallis OR 97330 



• SWTP/Flex9 irq service routines 



03E1 
03E3 








SETIRQ EQU 
CLRIRQ EQU 


$03E1 
$D3£3 


C300 
C300 


03FE 






ORG 
FD6 


$C300 
0RVSI2 


C302 
C305 

C308 
C30B 


16 
16 
16 
16 


001B C320 JOPEN LBRA 
0041 C349 LBRA 
005€ C369 LBRA 
0043 C351 LBRA 


IPOPN 
IPCLS 
IPOUT 

ipcm 



« default port address, adjust to suit 
C30E F470 ACIA FD6 SF470 

C310 00 SIDE FCB 

C311 00 FCB 



* SWTP/Flex9 Irq "information block" 

* - device address 

* - Irq service address 

* - link space (2 bytes) 

* - status mask (1 byte) 

C312 IPBLK RKB 

C314 RKB 

C316 0000 FOB 

C318 80 FC8 



C319 
C31A 
C31C 
C31E 

C320 
C324 
C327 
C32B 
C32E 
C331 
C335 
C338 
C33B 
C33C 
C33D 
C340 
C341 
C344 
C346 
C348 
» 

C349 
C34B 
C34E 
C350 



C351 

C353 
C356 
C358 
C35B 
C350 
C360 
C363 
C365 
C367 
• 

C369 
C36B 
C36D 
C370 
C372 
C375 
C379 



00 



30 8D 
AF 8C 
30 8D 
AF 8C 
AF 8C 
30 80 
AF 8C 
E6 8C 
58 
58 

AE 8C 
3A 

AF 8C 
86 

A7 84 
39 

1C 

60 8C 
26 
39 



34 

AE 8C 
30 01 
AC 8C 
26 

30 8C 
AC 8C 
27 
C6 
35 

34 
1A 

E6 8C 
26 

30 8C 
AO 9F 
AE 84 



0080 
ED 

00A8 
EC 
EB 

03C8 
E6 
05 



CE 

CE 
03 



IPBSY 
(PUT 
QGET 
OFOLO 

C3A4 IPOPN 

C314 

C3D3 

C31A 

C31C 

C700 

C31E 

C310 



C30E 
C312 



FCB 
Rtfi 
Rl« 
RKB 

LEAX 

STX 

LEAX 

STX 

STX 

LEAX 

STX 

LD6 

ASLB 

A5LB 

LOX 

ABX 

STX 

LOA 

STA 

RTS 



EF IPCLS CLI 

CB C319 CLS1 TST 

FB C34B Bf£ 

RTS 



14 
C4 

C3 
03 
73 
89 
02 
FF 
94 



IPCHK 
C31A 

C31E 
C36D 
C3D3 

C31C CHK1 
C367 

CHK2 



P3KS 

LOX 

LEAX 

O^X 

BNE 

LEAX 

OfX 

BEQ 

LD6 

PULS 



14 IPOUT PSHS 

10 OUTO SEI 

A9 C319 LD6 

16 C388 BNE 

90 C312 LEAX 

03E1 JSR 
LOX 



2 
2 


$80 


2 
2 
2 

IPSRV,PCR 

IPBLK+2,PCR 

OSTRT.PCR 

QPUT,PCR 

QCET,PCR 

Ql.IM,PCR 

QFOLO.PCR 

SIDE,PCR 



ACIA,PCR 

IPBLK.PCR 

#3 

,X 



IPBSY,PCR 
CLS1 



B,X 
QF\JT,PCR 

l.X 

QFOLO.PCR 

CHK1 

<QSTRT,PCR 

QGET,PCR 

CHK2 

#$FF 

B, X ,PC 

B,X 

IPBSY, PCR 
0UT2 

IPBLK, PCR 
[SETIRQ] 
.X 
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C37B 


C6 




35 






LOB 


*$35 


C370 


E7 


84 








STB 


,x 


C37F 


A7 


01 








STA 


i,x 


C38i 


6C 


8C 


95 C319 




INC 


IPBSY,PCR 


C384 


1C 




EF 




0UT1 


CLI 




C386 


35 




94 






PII.S 


B,X,PC 


C388 


AE 


ac 


8F 


C31A 


OUT2 


LDX 


QPUT,PCR 


C38B 


A7 


80 








STA 


,x+ 


C380 


AC 


ac 


8E 


C31E 




CMPX 


QF0LD,PCR 


C390 


26 




03 


C395 




BNE 


OUT 3 


C392 


30 


8C 


3E 


C303 




LEAX 


<QSTRT,PCR 


C395 


AC 


ac 


84 


C3LC 


OUT3 


CMPX 


QGET,PCR 


C398 


26 




04 


C39E 




BNE 


0UT4 


C39A 


1C 




EF 






CLI 




C39C 


20 




CO C36B 




BRA 


OUTO 


C39E 


AF 


80 


FF78 


C31A OUT4 


SIX 


QPUT.PCR 


C3A2 


20 




EO 


C384 




BRA 


0UT1 


C3A4 


6F 


80 


FF7L 


C319 


IPSRV 


CLR 


IPBSY,PCR 


C3A8 


A£ 


80 FF70 


C31C 




LDX 


QGET,PCR 


C3AC 


AC 


80 


FF6A 


C31A 




WX 


QPUT.PCR 


C3Q0 


26 




0B 


C3BD 




BNE 


SRVI 


C3B2 


86 




15 






LDA 


#$15 


C3B4 


A7 


A4 








STA 


,Y 


C3B6 


30 


C4 








LEAX 


•u 


C3B8 


AD 


9F 


03E3 






JSR 


[CLRIRO] 


C3BC 


3B 










RT1 




C390 


A6 80 






SRVi 


LDA 


,x* 


C38F 


A7 


21 








STA 


1,Y 


C3C1 


AC 


80 FF59 


C31E 




OfX 


QFOLD.PCR 


C3C5 


26 




03 


C3CA 




BNE 


SRV2 


C3C7 


30 


ac 


09 


C303 




LEAX 


<QSTRT,PCR 


C3CA 


AF 


8D FF4E C31C 


SRV2 


STX 


QGET,PCR 


C3CE 


6C 80 FF47 C319 




INC 


IPBSY,PCR 


C3D2 


3B 










RTI 





C303 QSTRT EQU 

C7D0 QLIM EQU SC700 

* this yields maximum queue size, specifically: 
0320 QSIZE EQU QLIM-QSTRT 

* If smaller queue desired, replace 

* queue equates with: 

* QSTRT RMB <size> 

* QLIM EQU • 
* 

03FE ORVSIZ EQU QLIM-JOPEN 



0000 



END 
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irremoff: disi cillers on the loose 

In tbe June issue of OHM wricer Steve Gross wsrns hose computer 

buffs Co be oo tbe look out for disk killing proftran*. Although 

little Is known about disk killers outside of Che coaputer 

loduecry, accord log to Cross s growing minber of hose coaputer 
ussrs srs lssming sbout the* the hsrd way. 



Coaputer disk killers sre progrsas designed specifically to 
destroy s coaputer 'a floppy snd hard- disk drives. The killer 
progrsas. ofcsn disguised ss free software, sre plsced 
anonymously oa one or several of hundreds of coaputer bulletin 
boards serosa the country, Unauapectlag hoee users , hoping for s 
bargain, download che "free" progran only Co find ouc coo lsce, 
often la fronc of s blsnk coaputer screen, what che killer 
prograa actually did. Moreover, there Is usually no way to find 
out who placed tha kil iar eoftvsrs, or fron whst locscion. 

According Co Cross, two of the nation's bltigsst coaputer networks 
□ow have progrsas svslleble Co detect killer software, as well ss 
a list of currant killer progress, Digitsl Dispstch, Inc., of 
Minneapolis calls ics syscea Decs Physician, and CompuServe 
offers CABoab, Both ayaceas era designed Co spot software dlaV 
killers before chey have a chance Co destroy your progrsas. 

"He is sasrt, snd knows it." ssys Gross sbout the prograoer who 
would dealgn disk klllera. "But he needs a forum to prove it to 
everyone else. The hundreds of computer bulletin boards in chls 
country are hla forum." 



%fcV*0* imvic:23-5%& 

COtfThCT: HkRClA POTASH 
BOB RATTER 




SCUUTOR Seiaa»e 1.14 - SUMMARY 
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CERTIFIED SOf TWA«t CORPORATION - 



«K> CAMr« CAl*UO HPCUO CA VJlaJ OS* ItKWM AOfi-W W3 TKtX 4&JO0 



E>«al«r/OCN Hewolettar number 17 

imtiMioni OULXR/CSM TSMU 

If you are an international dealer then you will find ancloaed ■ 
new est of paysent tstas. TMs la slnllar to the oni that want Into 
afreet last Sapteatoar, with the ea1or change being tha levering of 
dlacounta that war* Intended to coa&*fiaata for exchange rataa. Tha 
dollar hit coaa down aonaidarablyj and In aotaa caaaa la conaidarad 
to oa lowar than it ahould ba . Should tha dollar Incraaaa again to 
unreasonable levsle. a naw oat of poyawnt tors* will ba laauavl* 

<«000 CEWHU* ATATOt 

ITia target daduoqar !■ undergoing tasting by thoae coopenlaa who 
aaalatad a* laaC aonth In Em top* with porting to tholr *y*tea»* 
Tnoae coapanlaa ara i ZLrtC, pup, tfLsoFt. and CttsPAC. 

Work la undarvay on drlvara for tho 6«8«J chip. After thla In dona 
than doubla precision reala will bo .idik<d Co tha conptltir arxJ 
runtie*. A faw other ie.provae.enta will tte mAiUi in the aaltwar* and 
than relaaaaa will ba aiada of varalon 1.1 of tha KSK packega. 
Paopla with duplication licanaaa should raturn their Mitir dioka 
to raca Iva tha naw varalona «■ aoon after reJtMa* e* p©*»lblo. A* a 
guide for returning your dlaka, you ahould expect varalon 1,1 to ba 
aval labia by : 

OS* 9/6*000 Auguat 1, CP/h-61* August 70, VliftSAdoa October i 

itooo coniiwii MJtauaLa 

Sinca at laaat flOt of tha 60000 compiler pjckuqea are oont to 
Euroo*. ] have dacldad to atart printing tnoao aanunle in OJM A* 

foinet. TTiaaa will probably be ave liable around tita Middle o( 
AU^uat. depending on how long tha currant aupply of manual a laace. 
Tha updatad pagaa and OS dapandant aact iona far varalon l.i will 

initially ba printed in a l/> X il forest to work with tha old 
■anualn. Later, tha annual will be raprintad ualng tha nawly 
acquired Hewlett-Packard laaerJat printer In A« foreiet. Khan thla 

la dont > you will ba aant naw 09 dapandant ititiri to be uaad whan 
you atart racalvlng the A4 unuill. Tha A« manual* will be drilled 
with « holaa for atandard Kuropaan bindara. 

Thar a will ba no change to tha 6ab9 eonuola. atnce tha bales or 
thaae preducta ara in a declining aalea phaaa. 

♦♦OOP 0»T» MIlTf 

Hew 61000 data aheatn will alio b* available by tha n|4dle Of 
Auguat. Thaaa will ba aultJ'pag*, typeset , with dnqrjiaa, or Cast 
printad on gloaay atock. a large uprovnwnl over the ■unrnl data 

ajHNffeal, 
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CKPAC IMTtO&CTCKS A lOtf COST. HEOIUH MSOLUTfO* 
GRAPHIC COITIOLLZI FOR IKSQSTIIAl APPLICATIONS , 



ItRSA. AZ, Jaaa ll, )996--GlSf AC » lac, latrodacea en laicpeaalra 

mat powerful color griptilci coatrollar beard. Tb* CCSVIC-3 li 
buj 1 1 1 oa a alalia Height Eurocartf sd< la coapetleli with tha 
ataaetr* C-64 baa. Tha C-64 Ui la «a aei?-tti-iet*rfaca . 
aoa-ecl tl9l«*«d It-alt baa aaaclflcsxlr slaad at low to eldrao B a 
laauatrlal appllcet loea. 

Tha CISVIC-3 li aoftvara prograaaabta to opafata la either 
Kvopaan JO Ra or Aaarlcaa 60 Ka opat alloc*. Tha baard ten 
41aplar at raaolatlota mp Hi llaaa of 6*0 plaal. Ksch ptzal la 
fear beta deep thoi alloalag ep te 16 dlfferaat color* to be 
41a»lar«4 at *ae* la tn* tan* acraaa. Aa »abotrd color laahup 
chip allova aacb, of thaaa colore to ba aaar daliead •• aar •■» 
o( a caolca of A0V6. 



Tbe GSSVIC-} aaat a graphic frocaaaor casawl* of facogaltlag a«i4 
OHacatlag tavtral baitc coaaandt aich aa aatoaaetc rector 
dravle|. The graphic procaeaor *ad lta ea^chlp cbarseter 
gaearator I0K le alio capable of generating tort la •■rloua 
•l*** t orlatEatloai aad attlaa. 
Tha CtSYIC-) li 4lract.lT connected la the I/O aap of th* C-64 
baa. sad en be eeed la coajnectloa vtth aey of the B ead 16-blt 
alcroproceaaora a*allabla oa tha baa. TKe board ca« ba cooaacted 
to aar aonttor through lta lad. Crane. Mia aed orncbraaliattoB 
Oattalf * 

GESTAC lapaarta thla board with CPS. aa a6vaflc«4 grafUlet 
aoftuara package^ CPS allowa the «air to aaallr treaalate prograe 
paraeatara into elctoraa aalng a ccaplata aat of high laval 



Tba ••parlor graphic* caftblUtlaa of tha CISTJC^J, and lta itiff 
•ad coapact board foraat. aakaa It ideal for aach ippllcatlota aa 
pabtic addraaa dlaplaro. leatraeaet coaaolaa. laduatrlal data 



Tba CtSVlC-3 la a«elleble today at the lov wait price of 1990. 

Th» CPS graphic aoftvare packagi la ararllabla froa CRSPAC at 

Si 95. 

Tor iari Inforaatlon contact; Jo* Hurphf 

CKSPAC. Inc. 
100 v. iiBDTar in, 
H>aa. AZ «»02 
(602> 96J-5559 



?..,,,. .- . ::, ■ 




^■!W!»^!!.!^!^^- 



■ • : : 



Classifieds 




Winchester 10 Megabyte Drives 

Two (2) 10 Megabyte Hard-Disk Winchester Drives. Working * were 
removed for upgrade to larger drives 

1 RMS Model #509 $275.00 

1 - Seagate Model #412 $275.00 

(615) 842-4600 Tom 9-S EST. 

LSI 68008 CPU card, "C" Compiler and Digital Research 
CPM/68K $350. 

Tano Outpon II, 56K, 2 5*DSDD Drives, FLEX. MUMPS $595. 

MICROKEY Single Board Computer, Target 128K RAM, FLEX, 
FORTH, with optional 6502 CPU A ROMS a* advertiied on p. 51 DEC. 
84 68' Micro Journal. $1800. 

l-PT-69 complete with Dual 5" DSDD Disk System and Controller, 
includes FLEX DOS. $745. 

TELETYPE Model 43 PRINTER - with aerial (RS232) interface 
and full ASCII keyboard. $359,00 ready to run 
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SWTPC S/09 with Motorola 128K RAM, 1-MFS2, 
1 Parallel Port, MP-09 CPU Card 51290. 

l.CDSt 20 Meg Hard Disk System with Controller StOOO. 

(615) 842-4600 M-F 9 AM to 5 PM EST 



OS9fFLEX GIMIX 6809 Plus CPU Board; MMU Beyond 
64K; Epson Printer Two lowprolilc TEAC Drives, 40T/8OT 
DSDD; Hcathkit H19 Terminal; Nice software. $1200 
negotiable. Mike Ijemon, 23 E Bclvuc Road, Taykns, SC 
29687. 



68008 HARD DISK SYSTEM - COMPLETE 

512K 68008 system, 10 megabyte hard disk. Xebec 1410A HD 

controller, 80 liack double side, double density floppy. Complete wiih 

cabinet/power supply. Taken in on Mustang-020 tiade -in. Version 1.2 

OS-9, Bassc09, Stylo, Mail Merge, Spelling decker, Dynacaic - like 

new * original price S2.900.00 range (advertised) - SPECIAL - ONLY 

$1750.00. 

615 842-4600 - Data Comp, ask for Don or Tom. 



FOR SALE: GIMIX 6809 Uvcl H System. 192kb Ram; I9mb 
HD; 800kb floppy; w/OS-9 Level 11 DOS, Pascal, Basic09, etc. 
Two ADDS Viewpoint 3-A Terminals; Anadcx 1501 Printer. 
Best offer. Sam Gammitti - (602) 996-9335 - Phoenix, AZ. 



Sardis ST-2900 system, CPU. FDC two 5 1/4" Teac 
drives, power supply and cabinet, S500. (316) 685-7346. 



ATrENTION SWTP USERS - S/09 Upgradcablc to S+, 64K 
Memory, 6 Serial Ports, 1 Parallel Porl, Software, Manuals, 
Qume Terminal, Make Offer! Call (314) 469-3100. 



OS-9 SUPPORT FOR FD-2 



NEW! 




NEWi 



Run double densely on any S-S0 6800 or 6809 computer Who else can 
offer ihis capability al ihese low price*? The FD-2 fealures 

' Conirol of up 10 lour 5%" DS/DD Drives 

4 SS-30 or SS-30C compalibJe 

* Use Flex, OS-9. or Slar Dos operating syslems 

* 2 Q MHZ operalion wiih no "stow I/O** required 

* Compallble with SWTPC DCt, DC2, OC3, or DC4 conlrol>e<$ 

FD-2 
DRV-68 
DRV- 69 
DRV-09 
STAR-DOS 



Assembled/Tested Controller Card $149 95 

6800 double density drivers t format program $ 19 95 

6809 double density drivers * formal program $ 29.95 

FD-2 Disk Drivers for OS-9 (Source) Si 00.00 

For SWTPC & FD-2 $ 75.00 



PERIPHERAL TECHNOLOGY 

14S0 Terrell Mill Rd.. Suite 870 

Maneiia. Georgia 30067 *nud eni 

VISA/MAS T E RC A R D CHECK COD 

-QS-B *t ■ trsdwnarK of Mtcrow* *r>6 Moioroli Teton *J60584 





PT-69 system with three 80 track 5 1/4" DSDD drives and 
one 40 track 5 1/4" DSDD drive in two modem cases. With 
FLEX and applical ion software. $550.00 Tom (206) 226-3708 
evenings. 



6809<>68XXX 
UniFLEX 

X-TALK 

A C-MODEM/Hardware Hookup 



Exclusive for the MUSTANG-020 funning UniFLEX, 
is a new transfer pcogtam and cable set from DATA-COMP 
(CP1). X-TALK consist of 2 disks and a special cable, ibis 
hoot-up enables a 6809 SWJTC UniFLEX computer to port 
UniFLEX files diiectly to a 68XXX UniFLEX system. 
This is (he only cuntiily available method to 
transfer files, text or otherwise, from a 6309 UniFLEX 
system lo a 68000 UniFLEX system, that we have seen. A 
must if you want to recompile or cross assemble your old 
(and valuable) source files lo run on a 68000 UniFLEX 
system. G0MDC users can directly transfer files between a 
6809 GOvdX system and our MUSTANG-020 68020 syctcm, 
or GIMIX 68020 system. All SWTPC users must use sotue 
sort of method other than direct disk transfer Ihe 6809 
SWTPC UruFUDC disk formal is not readable by most other 
68000 type systems. 

The cable is specially prepared with internal 
connections to match the non-6tandard SWTPC SQr9 DB25 
connectots. A special SWPTC+ cable and software is also 
available, at the same price. Orders must specify which type 
SWTPC 6809 UniFLEX system (hey intend to tiansfer from 
or to. 

The X-TAJJC software is furnished on two disks. One 
8" disk containing ihe 6809 software a ltd one 5" disk 
containing ihe 68XXX software, These programs are also 
complete MODEM programs and can be used as such, 
including X-ou X-ofT, and all (be other features you would 
expect from a full modem program. 

X-TALK can be purchased wiihrViihout the special 
cables, however, this SPECIAL price is available only lo 
regime red MUSTANG-020 owners. 

X-TALK f w/cable $ 99.95 
X-TALK only $ 69.95 

X-TALK w/source $149.95 

DATA-COMP 

5900 Cassandra Smith Rd. 
Hixson,TN 37343 

Telephone 615 842-4601 
Telex 510 600-6630 



tyole: Registered MUSTANG-020 owners must furnish 
system serial number in order to buy at ttiese spedat low 
ices. 
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OS-9 UniFLEX 

MUSTANG-020, 68020, 68881 AND MORE 

HANDS-ON EXPERIENCE 




The DATA-Comp Division of Computer Publishing Corporation announces their new and 
innovative HANDS-ON 68020 computer familiarization two day event. A chance to TRY 
BEFORE YOU BUY! 

For two full days (Monday through Friday - excluding legal holidays) each participant will 
be furnished the exclusive use of a 68020 computer (MUSTANG-020). Each system will 
have available native C compilers, BASIC, assembler and other high level languages. Each 
system will be equipped with the Motorola MC 68881 math co-processor, where 
applicable. 

Each demonstration room will contain not more than two work stations. Each system will 
be equipped with floppy disk, 20 megabyte Winchester technology hard disk, and 2 
megabyte of RAM, RAM is partitioned as 690K bytes of RAM disk and 1 .2 megabyte of 
user RAM space. 

Participants are encouraged to bring along any source level projects, for evaluation, in C, 
BASIC or assembler. Call for availibility of other HHLs. 

Although this is not a training seminar, Data-Comp personnel are available for assistance 
and consultation. This event is scheduled for hands-on evaluations of the 68020 CPU, 
68881 math co-processor and MUSTANG-020 system, operating in a functional 
environment. 

Transportation to and from the airport and hotel/motel will be provided. Lunch provided 
both days. Chattanooga airport is serviced by American, Delta, Republic and other airlines. 




COST 

One person - S375.00 
Two persons - S595.00 



♦ Mold single $22.00, double $26.00 
Includes satellite TV - convenient to food and shopping 




DATA-COMP 

A Division of 
Computer Publishing, Inc. 

5900 Cassandra Smith Road 
Hixson, Tn 37343 
Telephone 615 842-4600 
Telex 510 600-6630 



Systems available for both OS-9 and UniFLEX. Reservation should be made 1 5 days in 
advance. Attendee should initially indicate OS-9. UniFLEX or both Special facilities 
available on request. Please write or call for additional information. 

NOTE: Both OS-9 and UniFLEX are Unix type operating systems. Each as been enhanced 
in some aspect or another. Prospective attendees should have some working knowledge or 
experience with one of these operating systems, to gain full tencfii of the session. 
However, a newcomer will find that it is a simple matter to be fairly proficient in using these 
systems in the allocated time. Special system instruction available on request. Call or 
write. 

* Holel/Motel cost are separate cost, not included in (he basic cost shown, 
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THE 6800-6809 BOOKS 

..HEAR y£. HCAR 



OS-9" 
User Notes 



By: Peter Dibble 

The publishers of 68* Micro Journal are proud to make 
available the publication of Peter Dibbles 

0S9 osei acres 

Informatioo for the BECWNER to the PRO, 
Regular or CoCo 0S9 

Oalug OS9 

HELP. HINTS, PROBLEMS, REVIEWS. SUGGESTIONS, COMPUINTS, 

0S9 STANDARDS, Generating a New Bootstrap, Building a 

new Syatem Disk, 0S9 Users Group, etc. 

Program interfacing to 0S9 

DEVICE DESCRIPTORS, DIRECTORIES, "FORKS", PROTECTION, 
"SUSPEND STATE\ •PIPES", "INPUT/OUTPIT SYS1EH\ etc. 

Programing Languages 

Assembly language Programs and Interfacing; Basic09. C. 
Pascal, and Cobol reviews, programs, and uses; etc. 



Disk* Include 
Mo typing all the Source Llatinga in. Source Code and, 
where applicable* assembled or compiled Operating 
Programs, The Source and the Discussions in the 
Columns can be used "as Is", or as a "Starting Point" 
for developing jour OWN more powerful Programs. 
Programs sometimes uae multiple Languages such as a 
short Assembly Language Routine for reading a 
Directory, which ia then "piped" to a Basic09 Routine 
for output formatting, etc. 



BOOK $9.95 

Typeset — w/ Source Listings 

(3-Hole Punched! 8 x 11) 

tteltue Binder S5.5U 



All Source Listings on Disk 

1-8" SS, SD Disk $)4.9* 

2-5" SS, DD Disks $24.9 5 




FLEX™ 
USER NOTES 

By: Ronald Anderson 

The publishers of 68 MICRO JOURNAL are proud to 
ke available the publication of Ron Anderson's FLEX 
OSEI MOTES, in book forts. This popular monthly column 
has been a regular feature In 6B r MICRO JOURNAL SINCE 
1979. It has earned the respect of thousands of 
68 MICRO JOURNAL readers over the years. In fact. 
Tin's column has been described aa the 'Bible' for 68XX 
uaers, by some of the world's leading microprocessor 
professionals. The aost needed and popular 6BXX book 
available. Over the years Ron's column has been one of 
the most popular In 68 MICRO JOURNAL. And of course 
68 MICRO JOURNAL la the most popular 68XX magazine 
published. 

Listed below are a few of the TEXT fllea Included In the 
book and on diskette. 

All TEXT files in ihe book are on the disks 



LOCO CI File load program lo Ott$eJ memory — ASM PIC 

MSMOVE Cl Memory move program — ASM PIC 

DUMP Cl Printer dump program — uses LOGO — ASM PIC 

SUBTEST Cl Simulation of 6600 code to 6809. show differences — ASM 

TEAM EM C2 Modem input to disk {or other port input lo disk) — ASM 

M C2 Output a file to modem for another port) — ASM 

PRINT C3 Parallel {enhanced) pnnter driver — ASM 

MODEM C2 TTL output to CAT and modem (or oihet port) — ASM 

SCIPKG Cl Scientific math routines — PASCAL 

U C4 Mmi^monilof. disk resident many useful functtons — ASM 

PRINT C4 Parallel printer driver, without PFL AG — ASM 

SET C5 Set printer modes — ASM 

SETBASt C5 Set pnnter modes — A-8A9C 

NOTE: .C1..C2, etc. -Chapter I, Chapter 2, etc. 

♦ ♦Over 30 TEXT files Included Is ASM (assembler)-PASCAL- 
P1C (position independent code) TSC 6AS10C, etc. 

Book only: $7,95 + $2,50 S/H 
With disk: 5" $20.90 4- $2 50 S/H 



With disk: 8" $22.90 + $2.50 S/H 

Shipping & Handling $3 30 per Book. $2. 30 per Disk set 

Foreig/i Orders Add $4 50 Surface Mail 
or $7 00 Air Mail 

If paying by check - Please allow 4-6 weeks delivery 

♦ All Currency in US. Dollars 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 



"FLtX is a iradco<jrk of Technical Systems Consultants 

"0S9 Is a trademark of Mlcrovrare and Motorola 

S 6H' Micro Journal is a trademark of Computer Publishing Inc. 



(615)842-4601 

Telex 5106006630 
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SK DOS 

(formerly called STAR-DOS) 
is now available for both 

68000 and 6809 

computers. The same great DOS, but now 
better than ever, with enhancements which 
make it ideal for 6809 users moving to the 
68000 / 68008 / 6801 / 68020. Available off- 
the-shelf now for the Emerald ESB-I and ESB- 
II computers, (others soon), and for licensing 
to OEMS at attractive terms. Single copies to 
end users are $75 (6809 version) and $125 
(68K version). Configuration Manual (optional 
at $50) gives full details on adapting to new 
systems, supplied FREE to SK*DOS/68K pur- 
chasers until Sept. 1 . Adapt SK*DOS to a new 
system and receive a royalty on your adapta- 
tion! Call us at 914-241-0287 for more in- 
formation. 



w iurmc 



tar-Kit^ box 209 Mt. kjsco ny 10549 



Hard Disk Subsystem 
for SS-50 Computers 

This proven subsystem adds hard disk speed and storage 
capacity to your computer yet requires only one S5-30 slot 
Software (wtih source) is included Tor your choice of FLEX9*, 
GS.9* Lcvd 1 or Lcvd II, or OS*9 68K operating 
systems. Ihe software honors a]] operating system 

convenlioas. Ihe soAware U designed for the Xebec S1410 
coalioUer interfacing to any hard disk drive that conforms lo the 
STS06 standard. Four subsystems are available: 

1) 27 MB (forniatied) WREN* hard disk, Xebec S1410A 

controller, SS-30 interface card, all cables, and software for 
S2&50; 

2) 7,3 MB (fonnaued) Tandon TM-603 hard disk, rest 

same as above for SS95; 

3) No tlaid Disk , rest same as above for $600, and 

4) $-30 interface card and software for $200. 

All pi ices include shipping. We accept Visa and Mastercard 
without adding a surcharge. Texas residents must add sales lax. 
Ihe subsystem may be mounted within your computer chassis or 
in a separate enclosure with power supply. Please write or 
phone (include your day and evening phone numbers) for more 
information. We will return North America calls so lhat any 
detailed answers will be at our expense* 



RO. Box 9802. 845 
AurtiD. Tex* 78766 



*♦♦ (512)244-6530*** 



FLfiXfct 
OS9iti 
WR£Kfa. 



oTTwfeka* Sjrwan Codidauts. JL 
of Mkrovrve and Mduztrtt 






ANDERSON COMPUTER 
CONSULTANTS 

Ron Anderson, respected author and columnist 
for 68' Micro Journal announces the Anderson 
Computer Consultants & Associates, a 

consulting firm dealing primarily in 68XX(X) software 
design. Our wide experience in designing 6809 
based control systems for machine tools is now 
available on a consultation basis. 

Our experience includes programming machine 
control functions, signal analysis, multi-axis servo 
control (CNC) and general software design and 
development. We have extensive experience in 
instrumentation and analysis of specialized 
software. We support all popular languages 
pertaining to the 6809 and other 68XX(X) 
processors. 

If you are a manufacturer of a control or measuring 
package that you believe could benefit from 
efficient software, write or call Ron Anderson. The 
fact is that any calculation you can do with a pencil 
and paper, can be done much better with a 
microcomputer. We will be happy to review your 
problem and offer a modern, state-of-the-art 
microcomputer solution. We can do the entire job 
or work with your software or hardware engineers, 

3540 Sturbrldge Cou? t 
Ann Arbor, Ml 48105 




XPNOR2 $39.95 each or 2/576 
This prototype card features a 40 pin 
connector lor protects requiring an on- 
line disk system or ROM paks The 
CoCo signals are brought out to wire- 
wrap pins Special gofd plated spring 
clips provide reliable and noiaefree 
desk operation plus solid support for 
vertical mounting o I the controller The 
enlire4 3"7 inch card is drilled lor ICs 
Assembled, tested end ready to run 

XPNOR1 S19.95 each or 2/S36 
A rugged 4 3«6 2 inch bare breadboard 
lhal brings the CoCo signals oul lo 
labeled pads Both XPNDR cards are 
double-sidod glass/epoxy, have gold 
plated edge connectors, thru-hole 
plating and are designed with heavy 
power and ground buses. They re 
drilled lor standard 3 and 6 inch 
wide dual in-lme wirewrep sockets; 
wilh a 1 inch grtd on the outboard end 
for connectors 

Super Guide $3,95 each 
Here is a unique piastre inseri lhal 
aligns and supports printed circuit 
cards intheCoCocartndgeport Don't 
forget to OROER ONE FOR YOUR 
XPNDR CARDS 



tor the CoCo 
DISK SYSTEM 



Included with each XPNOR card 
are 8 pages ol APPLICATION 
NOTES to help you learn about 
chips and how to connect ihem to 
your CoCo, 



To order or lor technical informa- 
tion call 

(206) 762-C309 

weekdays 6 am to noon 

We pay shipping on prepaidorders 
For immediate shipment send 
check, money order or the number 
a nd ex pi rat ion da te of you r V ISA o r 
MASTERCARD to 

ROIOTK ^P MICROSYSTEMS 

6OX3O807 SEATTLE. WA 96103 
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SOFTWARE FOR 680x AND MSDOS 



DISKETTES & SERVICES 



SUPER SLEUTH DISASSEMBLERS 
EACH 599-FLEX $10VO$/9 J100.UNIFLEX 
OBJECT-ONLY varalona: EACH S50-FIEX,OS*,COCO 
tntaradrwoty generate %ck*ca on disk *ith laiarfa. Induce *<e». binary editing 
apedly 6800.1.2.3,5 $,9fcS02 veraon or ZBO30a0.5 vwsion 
OS/9 vvvon also po»dM» FLEX kvrntf ot^ect Nv trdv OS9 
COCO DOS available in 8800.1 .2.3,5,8.3^502 version {nor 2BO/B080.5) oriy 

CROSS-ASSEMBLERS (REAL ASSEMBLERS, NOT MACRO SETS) 
EACH $50-FLEX,OS/9,UNIFLEX,MSDOS ANY 3 $100 ALL $200 
spaoly tor 1 80x,6502,6801 ,6804.8805,6609,28,280.8048,8051,6085,68000 
modular cross-«s«ambiars In C. wilh «oodrUnioad i/tlttes and mauos NOW; OS9-68K 
Bbrt (nol 86000) aourceS for addrtionaJ (50 aa<*. $100 tor 3. $300 tor «JI 

DEBUGGING SIMULATORS FOR POPULAR 8 Bin MICROPROCESSORS 
EACH S75-FLEX $100-OS/9 $80-UNIFLEX 
OBJECT-ONLY versions: EACH 550-COCO FLEXXOCO QSVB 
intefaetivaly abtiulaia processor*, mduda disassembly torroantng, binary adding 
spaciy for 6600/1, (14)6805, 6502. 6809 OS/9. Z60 FLEX 

ASSEMBLER CODE TRANSLATORS FOR 6502, 6800/1, 6809 

6502ft>6809 $75-FLEX $6$-OS/fl $BO-UNIFLEX 

8800/1 to 6809 & 6809 to posttiorvind S50-FLEX $75-0&9 S60-UNrFLEX 

FULL-SCREEN XBASIC PROGRAMS wlih cursor coniroJ 
AVAILABLE FOR FLEX, UNIFLEX, AND MSDOS 

DISPIAYGENE RATOFVDOCUM E NT OR 150 wWHir ee, *2S wMi out 

MAILING LIST SYSTEM 5100 WflOuroe. 550 without 

INVENTORY WITH MRP 51 00 waou c*. 550 wlthool 

TABULA RASA SPREADSHEET 5100 wteoufca, 550 without 

DISK AND XBASIC tmLfTV PROGRAM LIBRARY 
$50-FLEX $30-UNIFLEX/MSDOS 
adit disk salon, son directory, malnain rrxBtar catalog, do olafc sorts. 
r«99rsi0no9 some or a* o< BASIC PW*", xre< BASIC (Fogram, etc 
rjon»F!EX versxjnsindijda sort and rasafcxrct* or*/ 



CMOOEM TELECOM MUNJCATV>IS PROGRAM 
$100-FLEX T OS/9,UNIFLEX,MS-DOS 
OBJECT-ONLY versions: EACH $50 

menu-Jrkren %w(h wrrrmal mode. Me trarwim . MOOEM7. XON-XOFF, etc 
hrCOCOar^rxii-COCao>ivaarterr^aXX)rrt^^ 



5.25" DISKETTES 
EACH 10-PACK $12.50-SSSD/SSDD/DSDD 

Arrmrvan-oiadfi guaranteed 100% quAy, w** Tyvek &****». huo *«0*. and 1st 

ADDmONAL SERVICES FOR THE COMPUTING COMMUNITY 
CUSTOMIZED PROGRAMMING 
we wDI customize any o4 the programs dj^pibvd bi this a^turwi or in our 
brrxtofe tor epadaJlied ouEtcmar use or to cov* new pnMe**on;tf» charge 
tor vitf> QdimiAr depcnda upon the ma^^ablrtjr atthem u * Vj to « 

CONTRACT PROGRAMMING 
we w4l craale new progrerr» or modHy atatong programs on a avrtraa bos*, 
a BAvSea we nave prpv^tod lor over twenty years, the axnfUn onwt«*iw» 
r>ave pertormad onru fjogranvnr^ axAfda moelpqpUai morMsof 
mantra***, tookrtng IBM, Bunovgns, IkWac Mrvteywaf . mofl popular 
rmxMl0fnw«zvTOi«^ reUJr^ DEC. BM. DG. MP. AT&T, and mc«t 
popular Oranda o* rramjoomputem, indudinfl 66O0V1, 6809. 260. 6502. 
69000. using mctf tfgpcptaki te^guagea and ocarssng aystvm. on ayaftvni 
ranging in Size from large Unif i ir^ grA^ to «*>flle board oontroAere; 
the charge tor axtrao prograrrYTving Is usually by the hour or by the task 

CONSULTING 
we otfer a wide rangs erf husness and technical arafing servic** rtJLrfrig 

BarrWvrru adv^a. VBnrig. anddasiga on any topic retaad to Ojrnjvtw^ 
the charge lor consuajng « normafy oasad upon ame, travfll and e*pv«**. 



Computer Syatema Conaultaota, Inc. 

1454 Lalla Lane, Conyers. GA 30207 

Telephone 404-483-4570 or 1717 

We lake orders at any time, but plan 
long discussions after 6, It poaaible. 

Contact us about catalog, dealer, diacounta, and aervlcea. 
Moal programs in source: give computer, OS, diak alze. 
25% off multiple purchases of same program on one order. 
VISA and MASTER CARD accepted; US funds only, please. 
Add GA aalea tax (If In GA) and 5% shipping. 
(UN^LEXfnTec*^SV*fa^Cor«i^&OS4tfouOTa:tXro 



SOFTWARE. 
HARDCORE 



tFORTH 1 ™ 

from TALBOT MICROSYSTEMS 
NEW SYSTEMS FOR 
6301/6801, 6809, and 68000 



** FORTH PROGRAMMING TOOLS from the 68XX&X " 
" FORTH specialists — get the best" '• 

NOW AVAILABLE — A variety of rom and disk FORTH syslems to 
run on and'or do TARGET COMPILATION for 

6800. 6301/6801, 6809, 68000, 8080. Z80 

Wnte Of call for information on a special system to fit your require- 
men I 

Standard systems available for these hardware — 

EPSON HX-20 rom system and target compiler 

6809 rom systems for SS-50. EXORCISE R, STO. ETC 

COLOR COMPUTER 

6800 6809 FLEX or EXORCISER disk systems. 

680OO rom based systems 

68000 CP M-68K disk systems. MODEL IM2 16 

tFORTH is a refined version of FORTH Interest Group standard 
FORTH, faster than FIG-FORTH FORTH is both a compiler and 
an interpreter. It executes orders of magnitudes faster lhan inter- 
pretive BASIC MORE IMPORTANT, CODE DEVELOPMENT 
AND TESTING is much, much faster than complied languages 
such as PASCAL and C. If Soflware DEVELOPMENT COSTS are 
an important concern for you, you need FORTH! 

firmFORTH" is for the programmer who needs to squeeze the 
most into roms. It is a professional programmer's toof for compact 
rommable code for controller applications 

a- tf OATH and himFORTM are trademarks cfi TaHkrf Mtcrosyiiemfr 
*» FLEX is » tritonta* or Tscftn<aJ Sysiam* CoASvrtam* >r«c 
* CP M,68k ra trademark oi donal Researcr* Inc 



— tFORTH SYSTEMS < — 

For alt FLEX systems: GIMIX. SWTP, SSB. or EXORcisor Specify 
5 or 6 inch diskette, hardware type, and 6800 or 6809, 

" tFORTH — extended fig FORTH (1 disk) $100 ($15) 

with fig line editor. 

'* tFORTH + — more? (3 5" or 2 8" disks) $250 ($25) 

adds screen editor, assembler, extended data types, utifities, 
games, and debugging aids 

" TRS-SO COLORFORTH — available from The Micro Works 

" firm FORTH — 6809 only. $350 ($10) 

For target compilations to rommabfe code. 
Automatically deletes unused code, Includes HOST system 
source and target nucleus source. No royalty on targeis. Re- 
quires but does not include tFORTH + . 

" FORTH PROGRAMMING AIDS — elaborate decompiled 50 

"" tFORTH for HX-20, in 16K roms for expansion unit or replace 
BASIC $170 

" tFORTH/68K for CP'M-68K 8" disk syslem $290 

Makes Model 16 a super software development syslem, 

" Nautilus Systems Cross Compiler 

— Requires: tFORTH + HOST 4 at least one TARGET: 

— HOST system code (6809 or 68000) $200 

— TARGET source code: 6800-$200. 6301/6801— $200 
same plus HX-20 extensions — $300 

6809— $300. 8080/Z80-S200. 68000- $350 

Manuals available separately — price in ( ). 
Add $6 system for shipping. $15 for foreign air 



TALBOT MICROSYSTEMS 1927 Curtis Ave.. Redondo Beach. CA 90278 (213) 376 9941 
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Coming Soon! 

68000 products running under FLEX™ 
[ PL M S-68k (PL/9 for the 68000) "j 

• Built-in screen editor 

• Built-in source-level debugger 

• Built-in assembler 

• Byte, Integer, Long and Real variables 

• Signed or unsigned variables 

• Single-pass compiler 

• Direct source to object 
•Compiles over 1000 lines/min 

• Requires second processor and any FLEX™ system with a PIA port 




The second processor module (included with the compiler): 



• 10MHz 68008 CPU 

• 512K bytes RAM 

• Case and power supply 

• Plugs into Windrush UPROM 

Interface software included: 



68008 



port 



Run FLEX™ 

software on the 

68008 




• Program loader 

• 68000 FLEX™ interface package. 



Other Software: 
68000 Assembler 68000 System Monitor 
Programmer's Editor 




For further information, phone or write: 



Worstead Laboratories 
North Walsham 
Norfolk NR28 9SA 
England 

Tel (44) 692 404086 
Telex 975548 WMICRO G 



£<j)yWINDRUSH 



Micro Systems Ltd. 
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OK, PLEASE ENTER MY SUBSCRIPTION 
Bill My: Mastercatxi □ VISA □ 

Card # Exp. Date_ 



Subscription Rates 
U.S.A.: 1 Year $24.50, 2 Years $42.50, 3 Years $64.50 
♦Foreign Surface: Add $12.00 per Year to USA Price. 
♦Foreign Airmail: Add $48.00 per Year to USA Price. 

•Canada & Mexico: Add $9.50 per Year to USA Price. 

*U.S. Currency Cash or Check Drawn on a USA Bank ! 



68 Micro Journal 

5900 Cassandra Smith Rd. 
FOB 849 

Hixson,TN 37343 



C9 



Telephone 615 842-4600 
Telex 510 600 6630 




5p^^p 



Clearbrook Software Group 





For 1 Year 2 Years 


3 Years 


Name 


Enclosed: $ 




Street 

City 


State 
My Computer Is; 


Zip 



1 : 



VISA 



k 



CSG 

KM: 



Information 

Management 
System 




Some notable features include; 

- General purpose dumb is e manager. 

- Menu- dr if en front end. 

- Comprehensive applications language. 

- Uier definable icreen forma. 

- Interactive ad-hoc query environment. 

- Uaer definable report forma and 
report generator. 

- Data base program generator. 

CSG IMS for OS9/6809 Lll ia $495. 
Introductory price until June 30. 1966 

if $395 

A run-time package for uaer -dove loped 

and distributed applications ia $100. 

CSG IMS will be available for OSS/66000 and 
OS9/6609 LI in the second quarter of 1966. 



m*m**9&wwm 



^ 



Other CSG Products: 
Libr - thla la an object librarian, designed 
to create, inspect and maintain modules 
and libraries. For use with Microware's 
C compiler and RMA assembler. 

For OS9/6809: $50 

Tx - is a genersl purpose text editor, and 
ho features making it auitable for program 
creation and editing. It is the same editor 
which ia included with CSG IMS. 
Por OS9/6609 (soon for OS9/66000): $50 



For information or orders, write: 

Clearbrook Software Group 

446 Harrison Street 

PO Box 6000-499 

Sumas, WA USA 96295-6000 

Telephone: (604)653-9116 

Dealer inquiries welcome. 

North American orders sdd $5 for shipping. 
Fo reign orders add $10 for shippin g. 

OS9 is s registered trademark of 
Micros/are and Motorola 
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OS-9™ SOFTWARE 

SDISK— Standard disk driver module allows the use of 
35, 40, or 80 track double sided drives with COCO OS-9 
plus you can lead /write/format the OS-9 formats used by 
other OS-9 systems. $29.95 

SDISK + BOOTFIX— As above plus boot directly from a 
double sided diskette $35.95 

FILTER KIT #1— Eleven OS 9 utilities for "wild canT direc- 
tory lists, copies, moves, deletes, sorts, eta Now includes 
disk sector edit utility also. $29.95 ($31.95) 

FILTER KIT #2— Macgen command macro generator 
builds new commands by combining old ones with 
parameter substitution, 10 other utilities. $29.95 ($31.95) 

HACKER'S KIT #1— Disassembler and related utilities 
allow disassembly from memory, file. $24.95 ($26.95) 

PCOCFER UTILITIES —Utilities to read/write and format 
MS-DOS™ diskettes on CoCo under OS-9. Also transfer 
files between RS disk basic and OS-9. $45 (version now 
available forSSB level II systems, inquire). 

CCRD 512K RAM DISK CARTRIDGE -Requires RS 
Multipak Interface: with software below creates OS-9 
RAM disk device. $259 

CCRDV OS-9 Driver software for above $20 

BOLD prices are CoCo OS-9 format disk, other formats 
(in parenthesis) specify format and OS 9 level. All orders 
prepaid or COG VISA and MasterCard accepted. Add $1.50 
S&H on prepaid, COD actual charges added. 

SS-50C 

1 MEGABYTE RAM BOARD 
Full megabyte of ram with disable options to suit any 
SS-50 6809 system. High reliability, can replace static ram 
for a fraction of the cost, $699 for 2 Mhz or $799 for 22b 
Mhz board assembled, tested and fully populated. 

2 MEGABYTE RAM DISK BOARD 
RD2 2 megabyte dedicated ram disk board for SS50 
systems. Up to 8 boards may be used In one system, 
$1150; OS-9 drivers and test program, $30. 

(Add $6 shipping and insurance, quantity discounts 
available.) 

D.P. Johnson, 7655 S.W. Cedarcieat St. 

Portland, OR 97223 (503) 244-8152 

(For best service call between 9-11 AM Pacific Time) 

05*9 1» a tradwni/k of Mlcrowira and Motorcrii loc 
MS-DOS |» « trvt«n*fc o* MfcfWOK. MC 



COMPILER EVALUATION SERVICES 

BY: Ron Anderson 

The SJL MEDIA Division of Computer 

PubUsnlnc Inc. 

b offering the following SUBSCRIBER 

SERVICE: 

COMPILER COMPARISON AND EVALUATION REPORT 

Due to the constant and rapid updatng and enhancement 
of numerous compiler?, and the different utility, appeal, 
speed, level of communication, mcmoiy usage, etc, of 
different compilers, the following services are now being 
offered with periodic updates. 

This service, with updates, will allow you who are wary or 
confused by the various claims of compiler vendors, an 
opportunity to icvicw comparisons, comments, 
benchmarks, clc, concerning the many different 
compilers on the market, for Ihc 6809 microcomputer. 
Thus the savings could far offset Ihc smalt cost of this 
service. 

Many have purchased compilers and then discovered that 
Ihc paiticular compiler purchased cilher is not the most 
efficient for ihcir purposes of docs not contain features 
ncccssaiy for their application. Thus the added expense 
of purchasing additional compikr(s) or not being able to 
fully utilize the advantages of high level language 
compilers becomes too expensive. 

The following COMPILERS are reviewed initially, more 
will be reviewed, compared and benchmarked as ihcy 
become available to the author: 

PASCAL C GSPL WHIMSICAL PLV9 

Initial Subscription • $39.95 

(includes 1 year updates) 
Updates for 1 year - $14.50 

S.E. MEDIA - C.P.I. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 

(615) 842-4601 




68000 68020 68010 



68008 6809 6800 



Write or phone for catalog. 



AAA Chicago Computer Center 

120 Chestnut Lane — Wheeling IL 60090 
(312)459-0450 



T«chntc*l Contultttlon tvtlltbU moil WMfctftyt from 4 PM to « f»M CST 
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A Powerful 

1-2-3 
Combination 



6 80 Jo 



A v 



> 1. Stylo-Graph Word Processor 

Stylo-Merge Text Formatter clC\2$ 

Stylo-Spell 42,000 Word dictionary 6* 

2. Motorola 68000 Microprocessors 

3. The 68K OS9 Operating System 

All the Stylo programs are written in 68K assembly code making their performance second to none. 

The ability to always see on the screen what your printout will look like saves time and makes 
your work easier. 



Why settle for less than the best? 
Check it out today! 

Call or write for catalog 



Stylo Software, Inc. 

PO BO 916 48 2 C aieH 
CWO fAUS OAHO frJ*0? 
I2OKJWO3210 



.VISA OR MASTERCARD ACCEPTED 



1 _ W> | IftrtaM 9nt«in World. WW* 



OVB» 10 VEAAt Of OCOtCATED OV AUTVl 



DATA-COMP 
SPECIAL 



I A Division af 

9 Compurr Publishing, inc. 

5900 C*flxttfrs Sirilh Road 

HixsomTn 37343 

Telephone 61 5 $42-4600 

Telex 510 600-6630 



Heavy Duty Power Supplies 

For A limited time we are offering our HEAVY DUTY SWITCHING 
POWER SUPPLY. These are BRAND NEW units and will not last 
long. Also note that these prices are less than 1/4 the normal price 
for these high quality unK. 




Mike Boftchm 



Sac 103 £ 3 £ 2,5 »cAa - ndufag btwty aaaum* 



Rung a 1)0/220 vtahi te (sawp ciumfc) Otm; I10«wn» 

Ouqvc 5v lOwap 

♦ l2v-40 imp 

• I2v . 10 mp*. 
~12v*0J«st» 

Mate* 



Etch 

SPECIAL: $59,95 
2 or more 49.95 



Add $7.50 each S/H 



Mfdw: 



Sea: 10.75 i * 2 1 125 t 

fctftoE 1 10/220 ac (mp chaos?) Out II **l* 

Ouqnoc «5v.Sj0k9> 

♦12* . U «np 
♦I2v . U cup 
•l> . II sup 
-12* • 0/4 tmra 






Mttof 



Malex 



SPECIAL: $49.95 
2 OR MORE 39.95 

Add $7.50 S/l Inch 
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computer a v m t m m n bs-sqc 
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MODUUEB - BARK CARDS - KITS - ASSEMBLED * TESTED 

Stacfcabla Module* E1T MT 

30 aap POiER STJPPLT w/fio 

v/Dlai protect relay 350.00 400.00 
DI8E CABIWrr n/rmtm. a cabLe- 

!•■■ drives 300.00 aso.oo 

atOTBER OAIO. 8 S8-50C, * 83-30c 

rmi button 335.00 339.00 

Itn B*ra EIT Aa/T 

ITS - IHT RBUPT T HER 

1, 10, 100 par a«c. 10.95 39.95 39.95 
PB4 - INTELLIGENT PORT BUFFER 

Slaila board conput,39.95 114.95 139.95 
DFIA - Dual PIA parallal port. 

4 buf farad I/Oa 34.95 89.95 89.95 

1ADI - tatandad Addreaaln* 

BAOD fas. PIA port 39.95 69.95 89.95 
KBS - HOTTER BOARD 83- 50c 

a/BAUD fan 64.95 149.95 199.95 

P1B8 - 1*81 PROM DISE 

31. 3764 EPBOMa 39.95 79.95 109.95 

FD8B - Flrwara davalopavot 

2, SE biochB 39.95 84.95 114.95 
UfFH - 3764 PROM buraar adapt. 

for 3718 BORHER 19.95 

CBERRT larboard w/C binat 

96 lay cipacltlTa 349.95 — m 

THAN 13". 16 Kba MONITOR GREEN * .149. 9S 

AMBER 159.95 

4 MODULE CABINET - uaflalabad 150.00 

POWER SUPPLT v/dlak protact 350.00 ----- 

♦♦♦♦♦ M » MMM » M » HMM | 

Color Computer 

MDNOLINE - 30 Kba MooocbroM 

▼idao drivir 15.00 30.00 

CCSO PORT BOS v/povar auppl? 

5 88-30, 3 Cart 169.95 199.95 

POtBB BOX 6 avltcbad out lata 

traaalaat anppraaaloa 39.95 39.95 
RS-333 3-avttcbad porta 

tor aboaa 45© +30.00 05.00 

" Whteior Vr¥e * Catalog"" 

ADO S3. OO S£H PER ORDER 
WIS, ADD $1 SALES TAX 



11931 W. Bluemound Road 
MILWAUKEE. WIS. 53226 
(414)257- 0300 



68' MICRO JOURNAL 



Dlafe-l Plltiort, Klnlcii, Hlnlcopy, Hlnlfat, 

•*ltrttiae, ••Po«try. **foodtl«c. ••Diet. 
Dlaa~2 Dlakcdlt */ lnat.4 flicaa, Prl«, «Praod, 

••Snoopy, ••Fooihall, «*ltrsp«*n ,*«ll fat l«* 
Olak-) CboRfl9 t sac I. Sac2, find, T«bla2. lateat , 

t>lak-«xp, *Dt*k»a«e. 
Dlik-4 Killing Proirai, •Plndd**, *Ch»n((e, 

•Teatdlak. 
DI$E-> •DJSKflX I, •OISKKIX 2, »*LKTT>:K, 

••LOVKSICN. ••PLACKJAK, ••ftOWLlNC. 
Dlak-6 ••Purehaae Order. lndu* (Dtak ft I* lnd*> 
Dlak-7 Linking loader. Rload, Narkntaa 
Mak-S Crtvac. Unpher (Hay 62) 
Mak-9 Oataopy. 0takf|<9 (Au« R2> 
Mak-lO Hose Account ing (Jwty 62) 
01»k-ll 01i«c»bUr (June 64) 
Dtak- 1 2 Hodeatft (Revlaed June flfc) 
Olak-13 MnltafAB. Teat»rfifl, *ClMf)„p, 'PahAllftii, 

Help, Date.TxL 
Dlak-U •[nit, •Teat, •Terminal . •Find. "OUkcrfit . 

Inlt.LIb 
Di*k~l) Kode«9 ♦ Upd*r~4 (Der. 64 liltrhrNt) to 

*odt«9 (April 84 Coaaao) 
Dtak-lt Copy.Tkt, Copy. Doc, Cat .Ttet , Cat. toe 
Diafc-I? Match Utility. RATBAS. A Basic Preproccaaor 
Dlak-16 Parae.Hod. Size. taut (Sept. «S AraMtroa*). 

CMUCOOe. CNtf.Txt (Sept. 6S Spray) 
Olak-lt Clock, Dale. Copy, Car. PKL.An » Doc. 

Rrrar^.Syw. Un . iJiR.Aaft 4 floe. 
Dlak-JO UNIX Like Toola (July t Sept. 6) Taylor 4 

Cllehrlat). Dragon, C, Crep.C. LS.C, fOIJHP.C 
Olak-21 Utilities 4 Caaea - Date, life. Madoeaa. 

Touch* Cob 1 In, Starahot , 4 IS aore. 
Dlak-22 Read CPH 4 Kon-FtKX Dlaka. Praa«r Kay 

1964. 
Diak-23 ISAM, Indexed Sequent l«l rile Acceaatnn 

Kethoda, Condon Nov. 1965. Eattnalhle Table 

Drlvan Language Recognition Utility. 

Andaraon March 1966. 
Dlak-Zt 68' Micro Journal lnd«* of Articles 4 Bit 

iurket Itema Prow 1Q79 * J98S. John Ctifrftit. 
D1«X-IS KKKMIT for PL6X derived Proaj the UNIX ver. 

6ur6 Feb. 1966. (2>-5~ oiakt or (l>-8" DUk. 
01ak-26 Coaipacta Untftoard Review. Code 4 OLaftrai. 

Hurllnson March 1986. 

NOTE: 

This is a reader service ONLY! No warrafliy is offered or 
implied, (hey are as received by '68* Micro Journal, and 
are for reader convenience ONLY (some MAY include fixes 
or patches). Also 6800 and 6809 programs arc mixed, as 
each is fairly simple (mosdy) to convert to the other. 



8" Disk $14.95 



5" Disk $12.95 



68' Micro Journal 
5900 Cassandra Smith Rd. Hixson, TN 37343 

(615)-842-4600 



Telex 5106006630 

♦Indicates 6800 

♦♦Indicates BASIC SW1PC or TSC 

6809 no Indicator 

Foreign Orders Add $4.50 for Surface Mail 

or $7.00 for Air Mail 

♦Alt Currency in U.S. Dollars 



m 
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PT-69 SINGLE BOARD COMPUTER SYSTEMS 
NOW WITH WINCHESTER OR FLOPPY DISK DRIVES 

The proven PT-69 Single Board Computer line is expanding! Systems now can be Winchester or floppy-based. Available also »n a smaller 
cabinet wtlhout drives lor dedicated systems with no mass storage requirements 

• 1 MHZ 6809E Processor ' 2 RS 232 Serial Ports (6650) f 2 8-btl Parallel Ports (682 1) 

• Time of-Day Clock ' S6K RAM 2K/4K EPROM * 2797 Floppy Disk Controller 



Custom Owgn inQutnos welcome 





•PT69XT WINCHESTER SYSTEM 

Includes 5 MEG Winchester Drive, 2 40 - track DS/DD Drives, 
Parallel Printer Interface ♦ choice of OS/9 or STAR.DOS. 



$1795,95 



$895.95 



•Pr69S2 FLOPPY SYSTEMS 
Includes PT69 Hoard, 2 D&DD 40 - TKK 5 1/4" driven, cabinet, 
switching power suppljr, OS/9 or STAR.DOS. 

PERIPHERAL TECHNOLOGY 



Floppy System 

♦PT.69A ASSEMBLED & TS3TED BOARD $279.00 

•OS/9 S200.00 

•STAR.DOS * 50.Q0 



VISA MASTERC ARO/CMECK/COD 



1480 Terrell Mill Rd . Smie 870 

Maneita. Georgia 30067 

Telex 0680584 

"OS9 is a trademark of Microware 



404/984*0742 



CAti O* W*lTE FO« «OOlTlOMAl 
CONFIGURATIONS 



XDMS-IV fe 

Data Management System 



XDHS-IV PROCESSING MODEL 



> 






l*fui 

IHCLUDE 
tf iD 

ir/iie/Di 

C011 IT 



MOCESi \ 


ritual V\ 


rter.ni \\ 


FDIMfll V\ 


° ulM ' //y 




Clirui ^ 




Itrflll y^/ 








LIST 




IM1 




rot* 


IffcfCl 




CAlt 




MTlf 


nun 




SUA 




iPACl 


HIDE 




0* 




COUBLI 


trine 




LItl 




«c h: , 


IfFlfl 




: - s \ m 




■•-*»< 


ml; 




• UOTOUl 




r DL0 


Itfl 




silr 




• - • - ' 


litu 




• LOCH 




•MAI*"* 


•Rfl 




CUM 




ril 



) 






OlMfKl 

uinr 
rtmi 
0t «f l • r 



XOHS'IV SUPPORT COMMANDS 



[ iTlTCH \ /t(*CIM | fttriMif \ ( MOCEIS 1 f 1 

I wiiii ntw \u ri i c 1 1 c « J Vtili net J IcotrttL J I c 




Op to 32 groupe/fleldt p#r record 4 Op to 12 Character field t\ttf\9%* 
Op to 1024 byte r«cordi* Input-Proeeaa-Output <1P 1 commend structural 
Opper^Lowar (tti commindi 1 Uiar dtflfttd icraan And. print control* 
Procati filii* Pofm r t L ai * - Conditional aiacutton' Procata chaining* 
Opwtrd/0own»srd file Uniting' Fila joining 1 Random f|)a virtual paging 1 
Built In utllltla«> Built In tait Un* aditort Fully aattlon oriantad* 
tnhanttd forma* Boltfface, Double width, Italic* and On larljna supported 1 
M'ltton In compact structured eeaemolor 1 Integrated for FAfJT axetutlon* 

XDMB-IV P*t« M*n* B pmant Bvatam 
tbM-IV t* a brand nen approach to data management. It not only permit* 
u**rs to doicrib*. attar *id ratrlav* dil«i »Ul alio to proceil anllra 
fllaa producing customised rtporti. icraan dloplaya And Ilia output* 
Procaaitng can constat of any of a oat of itm iard hlgri laval function* 
including racord and riald eeiectlOfl. tO'tlng and aggragat*nn 4 lookups 
»n other filee* apaclal procoaaing of record aubieti, cuatom report 
formatting, totaling and. aubtotellng. and praaentatlon of up to three 

PQHKRPUL. COMMAMDB' 

XDK&-1V nnbifiii tha f one 1 1 on*J 1 1 y of many popular DBHS anftwsra tyslam* 
With a nt« ***y t*J v*m command *tt into a tingle integrated package. 
Na'va included many ni« feature* and ommand* Including a eet of general 
file utilltl**- The procaaslng command a mrm [nput-P'OCtlt-Ourput IIPO> 
oriented aMch allova alraoet Initent Implementation of a procaaa dealgn. 

SEBSIOM OR1EMTET3! 

XOKB-Ifl t% aeaalun orlvntadi Entar *XDKS* *n4 you are In tnltant curhmand 
Of all tha faaluraa. Ho mora Batting for commend to load tn from dltk* 
Many commando t f immediate, luch at CREATE (filar daflnlTlonl, UPDATE 
Ifllf editor), POROE end OtLtTt futilities. Othara »rm procaaa co manda 
which are utad to create a uier procote which ia aiacuted -itn a RON 
command. Elthar may be entered into a "prDCOtt* file vhlch 1* aiaculad 
by an EXEC0TE atatemant. Proceaaea may aiacuta athar procaataet or 
thartnalwaii althar candl t lenally or uncandi t lonal Jy . Hinui *n# irnir* 
prompt! era aaiily coded, and entire ueer appllcatlona can be run 
without ever leaving IDltS-lV! 

IT Q EASY TQ USE! 

JtDHS-lV htepa data management aimpie' Rathe' tnan deaign a complai DIM! 
which hide* the true nature of the dale* wo «ept XDM6-IV file oriented* 
The ueer vie* of date riLatlonifeipe le preeented In reports and icraan 
output, while the actual data reaidea In eaay to maintain filee* Thle 
aspect permits cuttomuad praaantation end ftporl* without complex 
redefinition of the databatt files and etruclure* XDMB-IV may be used 
for e wida range of apphcatlont from ilmvle record manasamant eyetemi 
<*ddratt*tr Inventory ...) to integrated detebaee ayiteme (order entry, 
accounting. ..ii The poialOllltiea are unlimited... 

XDK9-IV for 4l6t tLtl, ITlR-DOt. itsDOl (V or l'| *3«J»<0«94PaI 

Order by Phonei «1?J-MZ-4eoo/«bot - iVli* and MasterCard accaptadi 
Or write! South Eaet Madia, 5900 Caeeandra Smith, Biiaon, Tenn 37343 

WEBTCHEBTER iWpplleecd Bualneea Syetema 

2 Pea Pond Lane. BnarcllFf Manor, R,Y, 10510 Tel •l«-»4l-339XlBveai 

flCxas) fxnlcsi S«rti«m Cdnavltsati, nWHui ST*J<ni Cetf. 
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BOARDS & PARTS FOR GIMIX SYSTEMS 

CONTACT GIMIX FOR PRICES. DETAILS, AND REQUIRMENTS FOR HARD DISK AND OTHER MASS STORAGE UPGRADES. 



IHE EIMII CLASSY CHASSIS lit GPOhb el I *Trr*rkjH , 
cafr*ct. cqasuaI vo&ige torro letonanJ poner cuppry, and SSSQ Motoer 

Ooj«d #*th ootid rai« gcnei ator ooatd $1490. It 

I?? hi* Disl Regulator Cud Sat 22 

1)3 R*»d Rait Genet ilor Board $1093 

•23*J»ssing Crete Oetoctor $31.2) 

19? I *ci PUte $141? SOHfOpflon I3IN 

CaMe Kh 8 «rth Back Panel conna-tor 121.25 

tor Km t eifcinat drives... $44.26 lor hvoS" drivel S34.lt 

CPU BOARDS 

101 GUI HI CPU 4 OS 9 GMX HI $1199.01 

192 CMX HICPII & UinflEX III $1994.02 

iMfOSClMIXilOf PlU$CPUOeard 1571 15 

OMtoaf GlMJXDAf $35.00 951 1 A 1311.00 

SWlPOal SI 5.01 9S12 $2iS 00 

II3W00CPU $224.03 

IOt*MOCPU«/Tiniers $210.00 

6«00 Baud Rile Option . Add ISO. 00 

FLOPPY DISK CONTROLLER 

141 OMA S5ll.lt 

MEMORY BOARDS FOR 6B09/6B020 SYSTEMS 

• ?2 256KB CMOS S1ANC RAM board 

•Ah bailer* bach up (spectiy system) 1041.72 

MEMORY BOARDS (6B00/6BQ9 SYSTEMS ONLY) 

HI OX PflOMCad .. HI 34 

132 16 Sochei PROM/ROM/RAM Beard. 24 pin S23 1.32 

131 16 Socktl Universal! Mtmotyaojfd. 24/21 pea $2*131 

INTELLIGENT I/O PROCESSOR BOARDS 
stgnrtiuAlhr reduce syslems evtrneod by handing reuOne I/O tune* 
tons: lieetog u» nasi CPU tor tunning user p# ogrjim \t*% improve* 
owil system pertoimenre ani aOows user terminals to bo ran al up to 
19 ?K Oaud for usa »Mn GMX Kl and 020 systems. 

Ill 3PoriSertaJ 30P*i <OS9) S4ft.11 

f 14 3 Porl S« tai< 30 Pin (UniFltX) S490.1 4 

lUPareOet SOPMlUidFlEX 020) 1531.12 

• l3 4PD?lSt»W S0P«n|0S9»UnlfLEX-0?0| Slit. 13 

115 24K Version d III, nilh eJlner Urge mpul or 

output buffers (specify) SMI. IS 

r/D BOARDS (6600/6609 SYSTEMS ONLY) 

141 Serial. 1 fori $00.41 

M3 Serial 2 Porl 1120.43 

M0Seria1.IPofl(0S9/HEXonty| Oil 41 

•4? Parallel, 2 Port 111.4} 

M4 Petal*. 2 POM (Centronics e*«M) 1121.44 

l4SParaNd.lPorr{OS9/FlEXonry) 1190.40 

•50 I/O tor US 232C.423.422w/6050 $244 SO 

IS2SSOAw«*60S2 I2S4.S2 

154 AOLCvm* 6054 S2I0.S4 



CABLES FOR I/O BOARDS - SPECIFY BOARD 

195 Cat* SOU (tnaaded par porl) $24. IS 

151 Cam. OP. Cable lor 112 0144 S34.S1 

153 Csnl CabMSel S3S.S3 

OTNER BOARDS & PARTS 

JH Prototyping Ooard-SOPfn $56 61 

133 Prototyping Board 30 Pm.* $31.33 

eVtafcush EPROM Programmer 530 (OS9/FLEX 6009 only) , ... $545 00 

IT! Video Board 00 k 24 1391. 70 

101 Relay Driver packlQe $1121.01 

lit Above wUHool Relays $531.11 

Oplo Board $341.15 

8J«fei.3" $12.01 

.2" $9.00 



8" DRIVE CABINET & PARTS 

ZI'DSOOOrrves, Cabinet oCatllS 60Hi only. $119111 

Cablnel OrHy lor B" Of to $141.11 

220*/50 Hi Opium Add $30.00 

Cab* Sol. Internal tor 2 (Xfon $44.12 

Cable Sol Internal tor 4 Drives S6M4 

CaDtofromO > 'Ca&.toUaOiframt $45.11 

0" Fitter Plato $14.13 

SOFTWARE: 

GIMIX lAClusrvo versions Of OS-9/GMX I, II. Ill & FLEX are for GIMIX 

ha/dwan only ax versions of OS- 9 require the III conlronar. When 

ordered *Hh centrofer . FLEX Is $30 .00 

GIMIX versions ol FLEX $90.00 

GMX VObk tor FLEX 00 $100.00 

GMX0U8:P0DM|lMlMal SUMS 

Roof or VtoM'BooiPflOMS (6009) 130.00 

GIMIX Bool PROM lor UWIFLEX $50.00 

RMSIOS9) $25000 

00 (0S9) $71 . 10 

OS 9 GMX IH Update «/CPUSPPn»M $125 00 

1/OPfWMSvj/Updite $40.00 

GMXOUG'FLEX/VOtSK vj/OS- 91 H update Add $115 00 

ftAMOtsktorOS 9 $125.00 

O-FLEX $250.00 

OS9GMXI ...: $250.00 

OS9GMXH $500.00 

SCULPTOR 6809 (UftJFLEX/OSO) $995.09 

SCmPTOR-60020(UnlfLEX) SI 595 00 

COrTTACT 61MFX FOR PRICES AMO AVAfUBJLIT? Of OPTIONAL 
UNIFLEX AND OS9 LANGUAGES ANO OTHER SOFTWARE. 

ALL PRICES ARC F O.S. CHICAGO. 

GIMIX OOCS NOT GUARANTEE PERFORMANCE Of ANY OlMfX 
SYSTEMS. BOARDS OR SOFTWARE WHEN USEO WITH OTHER 
MANUFACTURERS PROOUCT. 



li rued umnu 

m tot. CCRX - ] Harrants Its products against 
defects In eater lal and vorioansblp for a period of 
ninety days frot the date of shipment. The obligation of 
6HX Is Molted to the repair or replacement of any pro- 
duct, free of til charges, which proves defective during 
this period. This warranty does not cover damage due to 
accidents, negligence, abuse or tampering. 

GRX IAKES HO OTHER WARRANTIES OR GUARAITEES. EX- 
PRESS. STATUTORY, OR IRPUE0. OF AM KIXO IHATSOEvER 
VITM RESPECT TO ANT PRODUCT PURCHASED. AR0 ANT IRPL1ED 
URRANTY Of MERCHANTABILITY 00 f ITICSS fOR A PAR- 
TICULAR PURPOSE IS IEREBT OISCLAIKO BT m AM) EX- 
CLUDED FROH ART ACREERIIT RAOE $T GW. 

6RX vfll not be resportsfblle for any damage of any kind 

not covered by the exclusive remedies set forth In this 
Melted warranty. (NX eft) not be responsible for any 
special, Indirect* or consequential damage caused by Its 
pro cts. 

Gxx products ire not for consumer use. 6RX express* 
ly disclaims all warranties on any of Its products 
which may be Included In any product normally used for 
personal or family purposes. 

Contact GW by tail at 1337 lest Itth Place. ChlcaOQ. IL 
40(49; or pftofle it (312) 927-5511; If your product Is 
defective to trrange for Its repair or replacement 
under this warranty. 



Repstr charges ftv G/ArVX prtxtocts after warranty period wtH tm 
$35 00 par hoot par coord (minimum $35.00} phs parts. 
Customer pays tralgni chatQas both ways. It GthitX determines 
that replacement is deskwbfe Instead, we wit nobly you. 
Charges tor checking out complete system wm be $50QVOphJt 
parts. Uatyil and necessary board rapaks. 



GIMIX. In, reserves the right to change prfelno. tonus, and product) 
spocOtcaUonj al any line wflnouf rurtnai norleo. 
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Gimix- 



1337 WEST 37th PLACE • CHICAGO, ILLINOIS 60609 
(312)927-5510 • TWX 910*221-4055 
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Now Offering "FLEX'* (2 Versions) 
AND 'STAR- DOS PLUS + " 




For Ordering C*ll 

(615)842-4600 



FROM - DATA-COMP, C.P.I. 



A Family of 100% 68XX Support Facilities 
The Folks u/ho FIRST Put FLEX* 
The CoCo 



on 




TSC Editor 

RtjtSOOO 
NOW $35.00 



DOS PLUS 4 

• Functions Same as FLEX 

• Reads - writes FLEX Disk* 

• Run FLEX Programs 

• Just type: Run "STAR-DOS'' 

• Over 300 utilities & programs 
to choose from. 



PLUS 
ALL VERSIONS OF FLEX & STAR DOS 




+ Read-Write-Dir RS Disk 
+ Run RS Basic from Both 
+ More Free Utlities 



INCLUDE 

+ External Terminal Program 
+ Test Disk Program 
+ Disk Examine & Repair Program 
+ Memoiy Examine Program 
+ Many Many More!!! 



TSC Assembler 

fUfttOOO 
NOW $3500 



Cora Disk Dnvp Susleuisl 



2 TH1NLINE OOUILB SIDED DOUILE DENSITY DISK DRIVES 
SYSTKH VlTN PDtJEI SWPLV .CAlINfcT, DISl OllVE CARLE. J4M 
NEW DISK CONTROLLER JPO-CP VJTfi J-DOS .US-DOS OPERATING 
SYSTEMS. $4*9.95 

Spidfy What CONTROLLER You W#nt JAM, or tADIO IHACX 



THINLINE DOUIt^ SIDED 
DOUILE DENSITY 40 TRACKS 



1 



Verbatim Diskettes 



Sinftle Sldtd Double Deoilty 
Daubl* Sided Doubl* Deotlty 



Cauli oilers 



J4N JPO-CP WITN J-DOS 
WITH J-OOS, RS-DOS 
RADIO SNACK J, I 

RADIO SHACK Dlik CONTROLLER 1.1 



Disk Dtive Cables 



Cflbl* for One Drive 
Cable for Two Drive* 



$179.9* 



$ 14.00 
* 14.00 



$139.95 
$159.95 
$114.95 

3134.93 



S 19.93 
S 24.93 



MK VPCRADt 

POR C.D.E.P, AMD COCO 11 
RADIO SHACK BASIC 1.2 
RADIO SHACK DISK IAS1C 1.1 

DISK OltVE CAR I NET PCJ1 A 
SINGLE DRIVE 

DISK DRIVE CABINET POR TWO 
TK INLINE DRIVES 



niVTCRJ 

EPSOM U-RO 
EPSON MX-70 
EPSOM KX-lOO 

acojmmue* not ipso* 

6 J 46 2K SEllAL BOARD 
6 J 49 32K EXPAND TO J 26K 
EPSON MX -AX- HO KI150NS 
EPSON LX-80 Rl IRONS 
TEACrOR UNITS POR LX-80 
CARLES 4 •THEN INTERSACKS 
CALL POR PRICING 



$ 29.95 

$ 24.93 
I 24.93 



I 49.93 
$ 49.95 



4219.95 
IU3.95 
$495.95 



$ R9.95 
$149.95 
$ 7.95 
I 5.93 
I 39.95 



DATA-COMP 

5900 Cassandra Smith Rd 
HiKson. TN 37343 


|e» 




SHIPPIN6 

USA ADD 211 

FOREIGN ADD 5» 

MIH. %2$Q 


(615)842-4600 

f Of Ofdvftng 

Telex 5106006630 


S 









S - 50 bus / 68XX 



Board and/or Computer 

Term inals-CRTs-Printers 

Disk Drives-etc. 

REPAIRS 



NOW AVAILABLE TO ALL S50 6BXX USERS 
The Data-Corn p Division of CPI is proud to annoy nee the availability o( (heir 
service department facilities to 'ALL* $50 Bus and 68XX users, Including all 
brands, SWTPC * GlMJX - SS3 - HELIX and others, including the single board 
computers. "Please note that kit-built components ate a special case, and will 
be handled on an Individual basis, it accepted. 

1 It you require service, the first thing you need to do is call the number 
bo low and describe your problem and confirm a Data-Comp service & shipping 
number) This Is very important, Data-Comp will not accept or repair items not 
displaying this number* Also we cannot advise or help you troubleshoot on the 
telephone, we can give you a shipping number, but NO advice! Sorry I 

2. All service shipments must include both a minimum $40 00 
estimate/repair charge and pre-paid return shipping charges (should be same 
amount you pay to ship to Data Comp), 

3 If you desire a telephone estimate alter your repair item is received. 
Include an additional $5 00 to cover long distance charges. Otherwise an 
estimate will be mailed to you, it you requested an estimate Estimates must 
be requested Mailed estimates slow down the process considerably 
However, it repairs are not desired, after the estimate is given, the $40 00 shall 
constitute the estimate charge, and the item(s) will be returned unrepaired 
providing sufficient return shipping charges were included with the item to be 
serviced. Please note that estimates are given In dollar amounts only. 

4 Data Com p sen/ice to the oldest and most experienced general 
550V63XX service department in the world, We have over $100,000.00 in parts 
in stock We have the most complete set of service documents lor the various 
S50/68XX systems of anyone - YET, WE DO NOT HAVE 
EVERYTHING J But we sure have mom than anyone else. We repair about 
90% of all items we receive C all for additional information or shipping 
instructions 




DATA-COMP 

5900 Cassandra Smith Rd. 
Hixson,TN 37343 
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(615)842-4607 
Telex 5106006630 






